var
aaa,bbb:integer;
begin
aaa:=strtoint(edit1.Text);
bbb:=1;
while bbb<aaa do
bbb:=bbb+2;
edit2.text:=inttostr(bbb);
aaa,bbb:integer;
begin
aaa:=strtoint(edit1.Text);
bbb:=1;
while bbb<aaa do
bbb:=bbb+2;
edit2.text:=inttostr(bbb);
改为
edit2.text:=IntToStr(bbb);