Labeli na dinamicki kreiranoj formi

Code:

procedure TMapViewer.MouseLButtonDBClick(var Msg: TMessage);
var
  frDialog : TForm;
  btOK, btCancel : TButton;
  lbName, lbSize : TLabel;
  edtName : TEdit;
  tbSize : TTrackBar;
begin
  frDialog := TForm.Create(Self);
  btOK := TButton.Create(frDialog);
  btCancel := TButton.Create(frDialog);
  lbName := TLabel.Create(frDialog);
  lbSize := TLabel.Create(frDialog);
  edtName := TEdit.Create(frDialog);
  tbSize := TTrackBar.Create(frDialog);
  with frDialog do
    begin
      Left := 0;
      Top := 0;
      Caption := 'Form2';
      ClientHeight := 125;
      ClientWidth := 230;
      Color := clBtnFace;
      Font.Charset := DEFAULT_CHARSET;
      Font.Color := clWindowText;
      Font.Height := -11;
      Font.Name := 'Tahoma';
      Font.Style := [];
      OldCreateOrder := False;
      PixelsPerInch := 96;
    end;
  with btOK do
    begin
      ParentWindow := frDialog.Handle;
      Left := 71;
      Top := 92;
      Width := 73;
      Height := 25;
      Caption := 'OK';
      TabOrder := 1
    end;
  with btCancel do
    begin
      ParentWindow := frDialog.Handle;
      Left := 148;
      Top := 92;
      Width := 73;
      Height := 25;
      Caption := 'Cancel';
      TabOrder := 2;
    end;
  with lbName do
    begin
      ParentWindow := frDialog.Handle;
      Left := 16;
      Top := 16;
      Width := 22;
      Height := 13;
      Caption := 'Ime:';
      ParentFont := false;
    end;
  with lbSize do
    begin
      ParentWindow := frDialog.Handle;
      Color := clBlack;
      Left := 16;
      Top := 48;
      Width := 39;
      Height := 13;
      Caption := 'Velicina:';
      Visible := true;
    end;
  with edtName do
    begin
      ParentWindow := frDialog.Handle;
      Left := 71;
      Top := 13;
      Width := 150;
      Height := 21;
      TabOrder := 0;
      Text := 'Edit1'
    end;
  with tbSize do
    begin
      ParentWindow := frDialog.Handle;
      Left := 65;
      Top := 44;
      Width := 163;
      Height := 29;
      TabOrder := 3;
    end;
  frDialog.ShowModal;
  frDialog.Free;
end;

Code:

ParentWindow := frDialog.Handle;

Code:

Parent := frDialog;

Code:

function TCities.GetCities(Viewport : TRect): TList<TCityData>;
var
  Iterator : TCityData;
begin
  Result := TList<TCityData>.Create;
  if FCities.Count = 0 then Exit;
  for Iterator in FCities.Values do
    if PtInRect(Viewport, Point(Iterator.Position.X, -Iterator.Position.Y)) then
      Result.Add(Iterator);
end;