Zdrojový kód tedy vypadá takto:

.
.
.
private
{ Private declarations }
procedure WndMove(var msg: TMessage); message WM_Move;
.
.
.

procedure TForm1.WndMove(var msg: TMessage);
begin
Form1.Caption := 'Pozice okna x: ' + IntToStr(longrec(Msg.LParam).lo) + ' y: ' + IntToStr(longrec(Msg.LParam).hi);
end;