Hola,
Propongo algo así, aunque, no sé si te servirá o qué.
Código Delphi
[-]
function FileToStr(
path: string): string;
var
aFile: TextFile;
begin
AssignFile(aFile, path);
Reset(aFile);
while not Eof(aFile) do
ReadLn(aFile, result);
CloseFile(aFile);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
sr: TSearchRec;
begin
SetCurrentDir(ExtractFileDir(ParamStr(0)));
if FindFirst('.\*.csv', faAnyFile, sr) = 0 then
begin
try
repeat
s := s + FileToStr('.\' + sr.Name)
until (FindNext(sr) <> 0);
finally
FindClose(sr);
end;
end;
ShowMessage(s);
end;