Como listar los archivos de un determinado directorio al dar click en un boton?

[ecfisa]

Hola nuevamente.

Un ejemplo que implementa el procedimiento de dec en el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ArchivosDirectorio('C:\Windows\', '*.*',  TS, True);
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;

Saludos