procedure TForm1.FormResize(Sender: TObject);
begin try
Edit1.Width := GroupBox1.Width - 134;
Memo1.Width := GroupBox1.Width - 223;
Button1.Left := GroupBox1.Width - 89;
shape1.Width := GroupBox1.Width - 15;
Button2.Left := Button1.Left;
sp1.Left := GroupBox1.Width - 89;
except end;End;