if OpenDialog1.Execute then
begin
  Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
  Edit2.Text := ExtractFileName(OpenDialog1.FileName);
end;

with OpenDialog do
if Execute then
begin
  Edit1.Text:=ExtractFilePath(FileName);
  Edit2.Text:=ExtractFileName(FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with SaveDialog1 do
  begin
    //DefaultExt:='TXT';  <= mo di setting disini monggo atw di properties langsung juga gpp
    if Execute then
     Files.SaveToFile(FileName);
  end;
end;