В файле tester_.pas заменить процедуру TForm1.FormCreate на вот это:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.AutoSize := False;
Image1.Proportional := True;
RadioButton1.Visible := False;
{=== Добавленные строки ===}
BorderStyle := bsSizeable;
BorderIcons := [biSystemMenu, biMinimize, biMaximize];
Constraints.MinHeight := Height;
Constraints.MinWidth := Width;
Panel1.Align := alBottom;
Button1.Parent := Panel1;
Button1.Top := (Panel1.Height - Button1.Height) div 2;
Button1.Left := 20;
end;
Все это можно сделать и во время конструирования формы в IDE, но так нагляднее.