[ecfisa]

Hola chopin_fev.

Por favor, cuando incluyas código Delphi en tus mensajes usa TAG's



En primer término te aconsejo usar un procedimiento en lugar de la función para evitar las fugas de memoria ya que nunca liberas la instancia de TStringList que creas en ella.

Entonces podrías hacer:

Código Delphi [-]
procedure TForm1.ListaArchivos(dirPadre:string; TS: TStrings);
var
  //...
  fecha: string;
  fh: THandle;
begin
  //...
  dirPadre := IncludeTrailingPathDelimiter(dirPadre);
  if FindFirst(dirPadre + '*.*', faAnyFile, sr) = 0 then
  repeat
    //...
    if (sr.Attr and faDirectory = 0) or (sr.Name <> '.') and (sr.Name <> '..') and ( lB ) then
    begin
      fh:= FileOpen(dirPadre + sr.Name, 0);
      fecha:= DateTimeToStr(FileDateToDateTime(FileGetDate(fh)));
      TS.Add(Format('%s/%d/%s',[sr.Name, sr.Size, StringReplace(fecha,'/','-',[rfReplaceAll])]));
      FileClose(fh);
      //...
    end;
  until FindNext(sr) <> 0;
  FindClose(sr);
end;

Saludos