var str:string; count,count2:integer;begin count2:=strtoint(edit.text); count:=count2+1; edit.text:=inttostr(count);end;
