Funktion / Stream in Richmemo laden ( Lazarus )

[manfred_h]

Versuche nur meine Ursprüngliche Idee zum laufen zu bringen...
Irgendwie fehlt mir da das Grundverständniss.....

Delphi-Quellcode:

procedure TDM.rtf_stream_load(aTable: TDAMemDataTable; aField: String; aForm: TForm; aComponent: TObject);
var
    rtfString : String;
begin
     //Get the data from the database as AnsiString
     rtfString := aTable.FieldByName(aField).AsAnsiString;

     //Write the string into a stream
     stream := TMemoryStream.Create;
     stream.Clear;
     stream.Write(PAnsiChar(rtfString)^, Length(rtfString));
     stream.Position := 0;

     aForm.aComponent.LoadRichText(stream);
     //
     stream.Free;

end;

Ich erhalte hier:

Code:

udm.pas(229,12) Error: identifier idents no member "aComponent"

Sorry wenn ich da nochmals nachfrage