TStringList drucken

[ereetzer]

Hallo, habe folgenden Code zum drucken einer StringList:

Code:

procedure TForm1.BitBtn14Click(Sender: TObject);
var
  FileList: TStringList;
  aRichEdit: TRichEdit;
  i: integer;
begin
  FileList := TStringList.Create;
  For i := 0 to FileListBox1.Count -1 do
  begin
    FileList.Add(FileListBox1.Items[i]);
  end;
  FileList.SaveToFile('c:\text.txt');
  aRichEdit.Lines.LoadFromFile('c:\text.txt');
  aRichEdit.Print('Test');
  aRichEdit.Free;
  FileList.free;
end;

Die test.txt wird ordentlich erstellt. Nur dann kommt:
Zugriffsverletzung bei Adresse ......

Wenn ich aber manuell ein RichEdit ins Formular platziere, das dann unsichtbar mache, dann klappt das. Irgendwas hab ich wohl vergessen. Nur
was?

Hat einer ne Idee?

cu
ereetzer