[Kailon]

Мне кажется, что через компоненты FileListBox, DirectoryListBox, DriveComboBox с закладки Win32, будет интереснее реализовать.
Подгружать в Memo можно как-нибудь так:

Код:

procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
  NameFile: String;
begin
  NameFile := FileListBox1.FileName;
  Memo1.Lines.LoadFromFile(NameFile);
end;