Eine Zeile in bestehende Exceltabelle einfügen

[freak4fun]

Ich habe eine bestehende Exceltabelle, die ich über ADO anspreche. Mit dem Auslesen habe ich keine Probleme, aber mit dem Einlesen hab ich Schwierigkeiten.

Delphi-Quellcode:

ADOTable1.First;
while (ADOTable1.FieldByName('1').AsString <> '') do
  ADOTable1.Next;

ADOTable1.Edit;
ADOTable1.FieldByName('1').AsString := Edit1.Text;
ADOTable1.FieldByName('2').AsString := Edit2.Text;
ADOTable1.FieldByName('3').AsString := Edit3.Text;
ADOTable1.Post;

Ich suche die erste Zeile in der Exceltabelle, in der nichts steht und möchte da dann meine Felder aus den EditFeldern eintragen. Wenn ich das so ausführe wie es ist, wird die ganze Tabelle mit den Daten gefüllt und nicht nur diese eine Zeile. Wie füge ich also nur diese eine Zeile ein?

Es soll dann so aussehen:

Zeile: Edit1.Text | Edit2.Text | Edit3.Text

MfG
freak