تغير المكونات وقت الشغيل

حلوة منك اخي العزيز

بس تعديل ان 009 للتغيير المكان او تحريك المكون في حدود الفورم

اما من 001 -008 كلها تغير الحجم كل بطريقة معينة

var
.  .  .
mydown,flag : bool;
....

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 mydown:=true;
 flag:=true;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if(mydown)then
 begin
   if(flag)then
    begin
     ReleaseCapture;
     SendMessage(Panel1.Handle,WM_SYSCOMMAND,$f009,0);
    end;
    flag:=false;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 mydown:=false;
 flag:=true;
end;