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;
Kommen die ListBox-Items und Memozeilen immer paarweise vor? Wenn ja, würde ich eine entsprechende Oberfläche wählen - ValueListEditor, zweispaltige ListView, Grid... Dann hast du solche Probleme wie das aktuelle gar nicht erst, und die Benutzung ist dann wahrscheinlich auch intuitiver.
Wenn es sogar immer genau
sechs Paare sind, könnte man sogar einfach 6 Labels+Edits nehmen.