procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
dann kannst du BerechnedasBild(Sender); verwenden
message WM_EXITSIZEMOVE; benötigst du nicht.
Delphi-Quellcode:
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
inherited;
BerechnedasBild(Sender);
end;