Ширина и высота динамически создаваемого объекта

unit Unit1;
 
interface
 
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Umd5, Vcl.ExtCtrls, jpeg;
 
type
TForm1 = class(TForm)
Start: TButton;
Next: TButton;
Edit2: TEdit;
Answer: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure StartClick(Sender: TObject);
procedure NextClick(Sender: TObject);
procedure Show;
procedure AnswerClick(Sender: TObject);
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
Base :TStringList;//Вопросы теста
Qestion : TStringList;//Вопрос
i,first,last:integer;
s:widestring;
numset: integer; // Задано тестов
numnow: integer; // Текущий номер вопроса
Good: integer; // Число верных ответов
Otvet: String; // Ответ
LabelQestion: TLabel; // Поле вопроса
LabelAnswer: TEdit; // Поле ответа
ImageQestion: TImage; // Картинка вопроса
implementation
 
{$R *.dfm}
 
procedure TForm1.AnswerClick(Sender: TObject);
begin
Otvet:= LabelAnswer.Text;
Otvet:= AnsiLowerCase(LabelAnswer.Text);
Otvet:= md5(trim(Otvet));
if Otvet = Qestion.Strings[2] then
begin
Good:= Good + 1;
ShowMessage('верно');
end
else ShowMessage('неверно');
 
Answer.Enabled:= false;
end;
 
procedure TForm1.NextClick(Sender: TObject);
begin
numnow:=numnow+1;
Show;
if numnow = numset-1 then begin
Next.Enabled:= false;
Start.Enabled:= true;
ShowMessage(IntToStr(Good));
Base.Clear;
end;
Answer.Enabled:= true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Good:=0;
Base :=TStringList.Create;
 
Qestion:=TStringList.Create;
 
Next.Enabled:= false;
Start.Enabled:= true;
Answer.Enabled:= false;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
Base.Free;
end;
 
procedure TForm1.Show;
begin
Qestion.Clear;
 
Qestion.Text:= StringReplace(Base.Strings[numnow],chr($a0),chr($d)+chr($a),[rfReplaceAll, rfIgnoreCase]);
 
if Qestion.Strings[1] <> 'iq' then
 
begin
if LabelQestion <> nil then FreeAndNil(LabelQestion); // Удаляем
if ImageQestion <> nil then FreeAndNil(ImageQestion); // Удаляем
 
LabelQestion:=TLabel.Create(Form1); // Сздаем
LabelQestion.Parent:=Form1;
LabelQestion.Left:=10;
LabelQestion.Top:=10;
LabelQestion.Width:=450;
LabelQestion.Height:=41;
LabelQestion.Caption:='';
LabelQestion.Autosize:=False;
LabelQestion.WordWrap:=True;
LabelQestion.Caption:= Qestion.Strings[1];
end;
 
if Qestion.Strings[1] = 'iq' then
begin
if LabelQestion <> nil then FreeAndNil(LabelQestion); // Удаляем
if ImageQestion <> nil then FreeAndNil(ImageQestion); // Удаляем
 
ImageQestion:=TImage.Create(Form1); // Сздаем
ImageQestion.Parent:=Form1;
ImageQestion.Proportional:=true;
ImageQestion.Left:=10;
ImageQestion.Top:=10;
ImageQestion.Width:=450;
ImageQestion.Height:=100;
ImageQestion.Picture.LoadFromFile('img/' + Qestion.Strings[2]);
 
end;
 
if LabelAnswer <> nil then FreeAndNil(LabelAnswer); // Удаляем
begin
LabelAnswer:=TEdit.Create(Form1); // Сздаем
LabelAnswer.Parent:=Form1;
LabelAnswer.Left:=10;
LabelAnswer.Top:=120;
LabelAnswer.Width:=150;
LabelAnswer.Height:=20;
LabelAnswer.Text:='';
end;
 
end;
 
procedure TForm1.StartClick(Sender: TObject);
 
begin
 
Next.Enabled:= true;
Start.Enabled:= false;
Answer.Enabled:= true;
 
randomize;
Base.loadFromFile('out.txt');
numset:=StrToInt(Edit2.Text);
numnow:= 0;
 
for i:=0 to Base.Count-1 do
begin
first:=random(Base.Count-1);
last:=random(Base.Count-1);
s:=Base.Strings[first];
Base.Strings[first]:=Base.Strings[last];
Base.Strings[last]:=s;
end;
 
for i:= numset+1 to Base.Count do
begin
Base.Delete(numset);
end;
 
Show; // Изменение формы и пуск теста
 
ShowMessage(Base.Text);
 
end;
 
end.

  LabelAnswer.Top := 10;
  if Assigned(LabelQestion) then
    LabelAnswer.Top := LabelAnswer.Top + LabelQestion.Top + LabelQestion.Height
  else if Assigned(ImageQestion) then
    LabelAnswer.Top := LabelAnswer.Top + ImageQestion.Top + ImageQestion.Height;