var
  diyalogPenceresi : TOpenDialog;
    {dosya secici degiskeninin tanımlanması}
   
begin
  diyalogPenceresi := TOpenDialog.Create(self);
  diyalogPenceresi.InitialDir := GetCurrentDir;
    {dosya secicinin ilk gosterecegi klasor olarak calisma dizini sectim}
 
  diyalogPenceresi.Options := [ofFileMustExist];
    {ustteki satir sadece var olan dosyalarin gosterilecegini belirtir}
 
  diyalogPenceresi.Filter := 'MS Access veritabani|*.mdb';
    {dosya secici yalnizca .mdb uzantili dosyalari gosterecek}

  diyalogPenceresi.FilterIndex := 1;
  if diyalogPenceresi.Execute then
      begin
        ShowMessage('Secilen dosya adresi : '+diyalogPenceresi.FileName);
        {burada diyalogPenceresi.FileName ile gelen veri dosyanin adresidir
            bu adresi edit uzerine yazdirirsin}
      end

  diyalogPenceresi.Free;
end;