This example uses an edit box and a button on a form. When the user clicks the button, the font in the edit box enlarges, and the edit box enlarges also to accommodate the larger font size.
procedure TForm1.Button1Click(Sender: TObject);
begin
acIPEdit1.AutoSize := True;
acIPEdit1.Font.Size := 20;
end;