Как изменять размеры StringGrid Мышкой

[Inbox]

У меня на форме несколько стрингов, как пользователю ими манипулировать?

[ЧИЖ]

 
var
  Form1: TForm1;
  xs,ys:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (x>stringgrid1.Left+stringgrid1.Width) and (x<stringgrid1.Left+stringgrid1.Width+4)
and (y>stringgrid1.Top) and (y<stringgrid1.Top+stringgrid1.Height) then
form1.Cursor:=crsizewe else
if (y>stringgrid1.Top+stringgrid1.Height) and (y<stringgrid1.Top+stringgrid1.Height+4)
and (x>stringgrid1.Left) and (x<stringgrid1.LeftCol+stringgrid1.Width) then
form1.Cursor:=crsizens else form1.Cursor:=crdefault;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (button=mbleft) and (form1.Cursor=crsizewe) then xs:=true;
if (button=mbleft) and (form1.Cursor=crsizens) then ys:=true;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if xs then stringgrid1.Width:=x-1-stringgrid1.Left;
if ys then stringgrid1.Height:=y-1-stringgrid1.Top;
xs:=false;
ys:=false;
end;
 
end.

[Ivan_Susanin]

StringGrid.Options:=.StringGrid.Opt ions+[goColSizing]
StringGrid.Options:=.StringGrid.Opt ions+[goRowSizing]

[Alex21]

А Splitter'ы для кого придумали???

Splitter + у Стринга свойство Align (все кроме alNone);

[Inbox]

А Splitter'ы для кого придумали???

Во!! Во! вот это мне и надо.
Я же пока мало рублю в энтом волшебном мире.
Другие примеры тоже пригодятся.
Спасибо!