Uses ShellApi;

procedure Affichepropriete(fichier: string);
var info: TShellExecuteInfo;
begin
FillChar(info,SizeOf(info),0);
info.cbSize:=SizeOf(info);
info.lpFile:=PChar(fichier);
info.lpVerb:='properties';
info.fMask:=SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@info);
end;

procedure TForm1.Button1Click(sender : TObject);
begin
Affichepropriete('c:\MonFichier.txt'); //Appel la procedure
end;