Animate zentrirt auf Panel

[freak4fun]

Ich hatte lange Weile:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (Panel1.Width > Memo1.Width + 25) then
  begin
    Memo1.Width := Memo1.Width + 25;
    Memo1.Left := round((Panel1.Width - Memo1.Width) / 2);
  end
  else
  begin
    Memo1.Left := 1;
    Memo1.Width := Panel1.Width - 2;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  if (Panel1.Height > Memo1.Height + 25) then
  begin
    Memo1.Height := Memo1.Height + 25;
    Memo1.Top := round((Panel1.Height - Memo1.Height) / 2);
  end
  else
  begin
    Memo1.Top := 1;
    Memo1.Height := Panel1.Height - 2;
  end;
end;

Nur mal so als Beispiel.