Association/Registreringsdatabase åbne filer

Nedestående kode virker næsten
Jeg kommer til dialogboxen med PDF Filer men når der dblklikkes på 1 fil eller highligter og bruger åbn knap ændre den tilhørende label for button1 og skriver stien til den valgte fil,men filen bliver ikke åbnet
dette sker også hvis der vælges eks. mappe med txt filer
i min form botton2 med samme kode dog med specefik henvisning til txt mappe
Hvis jeg åbner filer i stifinder eksempelvis åbner PDF/TXTfiler sker det fint med Acrobat reader/Notepad.

Svar nu gerne så en nybegynder også forstår det!!!!!!!!!!

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFileDrive(application.exename) + '\PDF FILER\';
if opendialog1.Execute then
label1.Caption:=opendialog1.FileName;
end;