listview on change problem

[Wadim]

hi leute,

ich hab ein dickes problem und zwar hab ich folgendes vor...hier mal zuerst mein beispiel quellocode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var eintrag: tlistitem;
begin
eintrag:= listview1.Items.Add;
eintrag.Caption := 'ok';
eintrag.SubItems.Add('geht');
end;

Delphi-Quellcode:

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
label1.Caption := listview1.Items.Item[0].SubItems.strings[0];
end;

so nun wenn ich auf den button klicke bekomme ich sofort eine fehlermeldung das der listindex überschritten ist...zuerst hab ich mich gefragt wie das zustande kommt aber inzwischen hab ich das problem gefunden, und zwar sobald der den eintrag 'ok' einfügt beginnt der sofort mit dem onchange ereigniss, und weil ja beim subitem [0] noch kein eintrag vorhanden ist gibt der mir ein error aus

so nun zu meiner frage...gibts irgendwie ein befehl das der den onchange erst ausführt sobald die erste zeile vollständig ausgefüllt ist??

hab auch schon mit dieser variante probiert jedoch logischerweise der selbe fehler

Delphi-Quellcode:

if listview1.Items.Item[0].SubItems.strings[0] <> '' then
  begin
   //quelltext
  end;

kann mir evtl. jemand helfen??

mfg wadim