Also vom Prinzip her klappt des nun bei mir. Nur nicht alle Dateien werden ausgelesen, so werden z.B. von 6 Dateien nur 5 in die Memo geschrieben (die 4te wird ausgelassen, warum auch immer).
Hier mal der Code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Ini: TInifile; i : integer; F: TSearchRec;
var1 : string;
begin
Findfirst('Stocks\*.ini', faAnyFile , F);
Ini:= TInifile.create('Stocks\'+F.Name);
var1:= Ini.readstring('Stock','Name','NIX');
Memo1.lines.Add(var1);
repeat
Findnext(F);
Ini:= TInifile.create('Stocks\'+F.Name);
var1:= Ini.readstring('Stock','Name','NIX');
Memo1.lines.Add(var1);
until (FindNext(F) <> 0);
//Memo1.Lines.Add(inttostr(i));
end;