一个窗体动态分割效果设计！中间的一些用法不懂！！请教

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    GroupBox1: TGroupBox;
    procedure Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Memo2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept:=false;
if source=panel1 then
begin
 accept:=true;
 memo1.Width:=x+(sender as tcontrol).Left; 不懂什么意思
end;
end;procedure TForm1.Memo2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept:=false;
if source=groupbox1 then
begin
 accept:=true;
 memo1.Width:=x+(sender as tcontrol).Left;
end;end;end.

Answer 1

if source=panel1  then 如果你拖动的控见是panel1
memo1.Width:=x+(sender as tcontrol).Left; 拖动后动态调整memo1的宽度,memo1的本身宽度加上拖动过来的panel的Left的数字!
不知道我说得对不对!

Answer 2

memo1.Width:=x+(sender as tcontrol).Left;
x是事件发生时的鼠标坐标（memo1的客户区）。这句代码的效果就是让memo1的右边框正好与panel的右边框重合。