[Artem28]

С опендайлог так не катит.

Если захотеть то покатит:

Код:

var
{$H+}
S: string;
begin
if OpenDialog1.Execute then begin
s := ExtractFilePath(OpenDialog1.FileName);
Label1.Caption := s;
end;