Para listar los ficheros en ShowMessage utilizando el FileListBox, sino quieres que se vea símplemente le pones su propiedad visible a False y arreglado.
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
cLista:String;
i:Integer;
begin
FileListBox1.Mask:='*.txt';
FileListBox1.Drive:='e';
For i:= 0 to FileListbox1.Items.Count -1 do
begin
cLista:=cLista+FileListbox1.Items.strings[i]+Chr(10)+Chr(13);
end;
ShowMessage(cLista);
end;
Un Saludo.