[marcoszorrilla]

Y por qué no utilizas un FileListBox de la Paleta Win31.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.Mask:='*.txt';
FileListBox1.Drive:='e';
end;

Un Saludo.