200+ Texte in ein memo laden

[Spectre]

jo danke für den link. hab bis jetzt rumprobiert, hat lange genug gedauert..
habs jetzt mit einer .res file gelöst in die ich die textfiles einspeise und mit

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  rs: TResourceStream;
  begin
  rs := TResourceStream.Create(hinstance, 'ELFENBEINKUESTE', RT_RCDATA);
  try
  smemo1.Lines.LoadFromStream(rs);
  finally
    rs.Free;
  end;
end;

drauf zugreife. Das war ein Akt
Aber der lerneffekt war gut