TLabels in Forms

[Bad Boy JH]

I am having some trouble with TLabels in forms, what it is doing is either going past the edge of the form, or going single word (basically) down the side of the form, and off the bottom...the first way is when the line that has been commented IS commented out, and the other is when its not commented out...If there is a SRL feature that stops this (I am not using SRL for this, its not for autoing...)

var
  CrimeForm: TForm;
  CFormYesBtn, CFormNoBtn: TButton;
  Description: TLabel;

procedure ButtonClicked(Sender: TObject);
begin
  case Sender of
    CFormYesBtn : CrimeForm.ModalResult:= 1;
    CFormNoBtn : CrimeForm.ModalResult:= 2;
  end;
end;

procedure InitForm;
begin
  CrimeForm := CreateForm;
  CrimeForm.Left := 300;
  CrimeForm.Top := 260;
  CrimeForm.Width := 300;
  CrimeForm.Height := 200;
  CrimeForm.Caption := 'Option!';
  CrimeForm.Color := ClWhite;

  CFormYesBtn := TButton.Create(CrimeForm);
  CFormYesBtn.Parent := CrimeForm;
  CFormYesBtn.Left := 10;
  CFormYesBtn.Top := 125;
  CFormYesBtn.Height := 30;
  CFormYesBtn.Width := 100;
  CFormYesBtn.Caption := 'Yes';
  CFormYesBtn.OnClick := @ButtonClicked

  CFormNoBtn := TButton.Create(CrimeForm);
  CFormNoBtn.Parent := CrimeForm;
  CFormNoBtn.Left := 145;
  CFormNoBtn.Top := 125;
  CFormNoBtn.Height := 30;
  CFormNoBtn.Width := 100;
  CFormNoBtn.Caption := 'No';
  CFormNoBtn.OnClick := @ButtonClicked

  Description := TLabel.Create(CrimeForm);
  Description.Parent := CrimeForm;
  Description.Top := 60;
  Description.Left := 10;
  Description.Height := 100;
  Description.Width := 250;
//  Description.WordWrap := True;
  Description.Caption := 'You got caught, and the judge sentenced you to gaol for 3 Turns.'
  Description.Font.Size := 10;
  Description.Font.Color := 0;
  Description.Font.Name := 'Comic Sans MS';
  Writeln('end of InitForm');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  CrimeForm.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;


Function OpenForm: Boolean;
begin
  SafeInitForm;
  SafeShowFormModal;
  case CrimeForm.ModalResult of
    1 : Result := True;
    2 : Result := False;
  end;
end;

begin
  OpenForm;
end.

[Sex]

var
  CrimeForm: TForm;
  CFormYesBtn, CFormNoBtn: TButton;
  Description: TLabel;

procedure ButtonClicked(Sender: TObject);
begin
  case Sender of
    CFormYesBtn : CrimeForm.ModalResult:= 1;
    CFormNoBtn : CrimeForm.ModalResult:= 2;
  end;
end;

procedure InitForm;
begin
  CrimeForm := CreateForm;
  CrimeForm.Left := 300;
  CrimeForm.Top := 260;
  CrimeForm.Width := 300;
  CrimeForm.Height := 200;
  CrimeForm.Caption := 'Option!';
  CrimeForm.Color := ClWhite;

  CFormYesBtn := TButton.Create(CrimeForm);
  CFormYesBtn.Parent := CrimeForm;
  CFormYesBtn.Left := 10;
  CFormYesBtn.Top := 125;
  CFormYesBtn.Height := 30;
  CFormYesBtn.Width := 100;
  CFormYesBtn.Caption := 'Yes';
  CFormYesBtn.OnClick := @ButtonClicked

  CFormNoBtn := TButton.Create(CrimeForm);
  CFormNoBtn.Parent := CrimeForm;
  CFormNoBtn.Left := 145;
  CFormNoBtn.Top := 125;
  CFormNoBtn.Height := 30;
  CFormNoBtn.Width := 100;
  CFormNoBtn.Caption := 'No';
  CFormNoBtn.OnClick := @ButtonClicked;

  Description := TLabel.Create(CrimeForm);
  Description.Parent := CrimeForm;
  Description.Top := 5;
  Description.Left := 10;
  Description.WordWrap := True;
  Description.Height := 300;
  Description.Width := 300;
  Description.Caption := 'You got caught, and the judge sentenced you to gaol for 3 Turns.'
  Description.Font.Size := 10;
  Description.Font.Color := 0;
  Description.Font.Name := 'Comic Sans MS';
  Writeln('end of InitForm');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  CrimeForm.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;


Function OpenForm: Boolean;
begin
  SafeInitForm;
  SafeShowFormModal;
  case CrimeForm.ModalResult of
    1 : Result := True;
    2 : Result := False;
  end;
end;

begin
  OpenForm;
end.

Move the Width and Height declarations below where you set WordWrap to true.