Memo2.Lines speichern

[strom]

hallo neutral-general,

jetzt wird aber nur 'Memo2.Lines[0].text' abgespeichert.

Delphi-Quellcode:

procedure TForm1.SQLSAVETimer(Sender: TObject);
var
i : integer;
begin
 if (CheckBox2.Checked = true) and (Memo2.Text <> '') then begin
      Einsaetze.Append;
    for i:= 0 to Min(Memo2.Lines.Count, 6) - 1 do
    begin
  Einsaetze.FieldByName(ListBox1.Items[i]).Text := Memo2.Lines[i];
  Einsaetze.Post;
  Einsaetze.Refresh;
  Memo2.Clear;
 end;
end;
end;