K KOKS Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-25 #5 procedure TForm1.Edit1Change(Sender: TObject); begin Label1.Caption:=IntToStr(edit1.SelStart); end;