[Gman]

Здраствуйте. Подскажите пожалуйста можно ли с помощью OpenDialog присваивать переменной имя папки(пустой или с файлами), а если нет, то как можно?
Я делаю вот так(но это криво и работает не всегда):

Код:

procedure TForm6.Button8Click(Sender: TObject);
var Se:string;
begin
if OpenDialog1.Execute then
 begin
  Se:=ExtractFilePath(OpenDialog1.FileName);
  Edit4.Text:=Se;
 end;
end;