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;