Memo2.Lines speichern

[strom]

Hallo,
möchte aus einem Memo, bestimmte "Zeilen" in eine Datenbank schreiben.

Wenn jetzt in einer Zeile nur "Leerzeichen" sind, wird die Procedure nicht
weiter ausgeführt.

Delphi-Quellcode:

procedure TForm1.SQLSAVETimer(Sender: TObject);
begin
 if (CheckBox2.Checked = true) and (Memo2.Text <> '') then begin
  Einsaetze.Insert;
  Einsaetze.Edit;
  Einsaetze.FieldByName(ListBox1.Items[0]).Text := Memo2.Lines[0];
  Einsaetze.FieldByName(ListBox1.Items[1]).text := Memo2.Lines[1];
  Einsaetze.FieldByName(ListBox1.Items[2]).Text := Memo2.Lines[2];
  Einsaetze.FieldByName(ListBox1.Items[3]).text := Memo2.Lines[3];
  Einsaetze.FieldByName(ListBox1.Items[4]).Text := Memo2.Lines[4];
  Einsaetze.FieldByName(ListBox1.Items[5]).text := Memo2.Lines[5];
  Einsaetze.Post;
  Einsaetze.Refresh;
  Memo2.Clear;