موقعیت یابی

[mostafaserial]

سلام

آقا من یه برنامه میخوام به شرح ذیل

سه تا تکست باکس دارم به نام x,y,zو یه دکمه و یه shape مربع شکل روی فرم
حالا من میخوام توی تکست باکس ها عدد وارد کنم بعد دکمه رو که زدم اون شی بره به اون موقعیت.
چه باید کرد در دلفی؟
من این کار رو کردم جواب نداد


procedure TMainForm.FormCreate(Sender: TObject);
begin

a:= edit1.Text ;
b:=edit2.Text;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
c:=StrToint(a);

d:=StrToint(b) ;
shape1.Left :=c;
shape1.Top :=d;



end;
a,b رو string تعریف کردم.
لطفا ببینید مشکل چیه؟
ممنون.

[جواد ملاولی]

سلام. نیاز به این متغیر ها نیست.

procedure TForm1.btn1Click(Sender: TObject);
begin
shp1.Left := StrToInt(edt1.Text);
shp1.Top := StrToInt(edt2.Text);
end;