Memo u. DB

[Tau]

Hallo Leute

kann mir vielleicht jemand helfen ich glaub ich sehe den Wald vor lauter Bäume nicht mehr.

ich versuche Daten aus einer MS Access Tabelle in ein Memo zu exportieren mit folgendem Code.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOTable1.Active := True;
   while not ADOTable1.Eof do
      begin
      Memo1.Text := 'Demo 1 ' +#13#10
                         +'Demo 2 ' +#13#10
                         +'Demo 3 ' +ADOTable1Text1.Value +''';' +#13#10
                         +'Demo 4 ' +ADOTable1Text2.Value +''';' +#13#10
                         +'Demo 5 ' +ADOTable1Text3.Value +''';' +#13#10
                         +'Demo 6 ' +#13#10
                         +'Demo 7 ' +#13#10
                         +'Demo 8 ' +#13#10;
      ADOTable1.Next;
      end;
   ADOTable1.Active := False;
end;

Es wird immer nur ein Datensatz exportiert warum ?

mfg
Tau