ein StringGrid mit RaveReport aus drucken?

[Code]

Ich bin's nochmal. Ich wollte versuchsweise ein Memo ausdrucken.
Wieso klappt dieser Code nicht?

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
begin
  RvProject1.ProjectFile := ExtractFilePath(Application.ExeName)+'Project1.rav';
  RvProject1.Execute;
end;

procedure TForm3.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
RvCustomConnection1.WriteField('Text',dtString,50,'','');
end;

procedure TForm3.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
Var
I:Integer;
begin
  with connection do
    begin
       for I := 0 to Memo1.Lines.Count - 1 do  WriteStrData(Memo1.Lines[I],'');
    end;
end;

procedure TForm3.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := Memo1.Lines.Count - 1;
end;

Auf der Form habe ich ein Memo, RvCustomConnection und RvProject.

Gruß
Klaus