Problem beim Verkleinern der Form

[Mazel]

Sorry, Param ist hier ein Integer Wert wie $F004 oder $F012.

Delphi-Quellcode:

procedure TForm1.SetReSize(Param: Integer);
begin
 ReleaseCapture;
 Form1.Perform(WM_SYSCOMMAND, Param, 0);
end;

Wenn ich auf das Image links oben klicke (OnMouseDown) und dann die Mause bewege rüfe ich mit SetReSize($F004); die Prozedur auf, die dann meine Formgröße verändern soll.

Gruß
Mazel