Brak border i zmiana rozmiaru

chciałbym aby program nie miał otoczki (border) a zarazem mozna by bylo zmieniać jego rozmiar, prosze o pomoc...

Nie wiem czy Cię dobrze zrozumiałem...
Chceż aby program miał borderstyle:=bsNone i aby dało się go "rozciągać"?
Oto mój pomysł(niedorobiony):
-Zmień właściwość borderstyle na bsNone
-Zadeklaruj zmienne:

...
var
  Form1: TForm1;
  startx,starty:integer;
implementation

{$R *.DFM}
...

-W zdarzeniu "OnMouseMove"(formy) wpisz:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var c:TPoint;
begin
  GetCursorPos(c);
  If(Shift=[ssLeft])and(Width-8<c.x-left)and(height-8<c.y-top)then
  begin
    if StartX=-1 then
    begin
      StartX:=c.x;
      StartY:=c.y;
    end;
    width:=StartX+(c.x-StartX-left);
    Height:=StartY+(c.y-StartY-top);
  end
  else
  begin
    StartX:=-1;
    StartY:=-1;
  end;
  if(Width-8<c.x-left)and(height-8<c.y-top)then
    Cursor:=crSizeNWSE
  else
    Cursor:=crDefault;
end;

i chyba coś z tego wyjdzie...

W OnMouseDown formy daj:

ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND,$F008,0);

jak chcesz przeniesc forme to daj

$F012

inne parametry mozesz latwo podejrzec WinSightem.

[browar]