помогите чайнику в Delphi

[magama94]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    SpinEdit1: TSpinEdit;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Left_N: Integer; // Îòñòóï ñëåâà âåðõíåé ÷àñòè
  Top_N: Integer; // Îòñòóï ñâóðõó
  Left_NN: Integer; // Îòñòóï ñëåâà äëÿ ðàçäåëà îòâåòîâ
  Top_NN: Integer; // Îòñòóï ñâåðõó äëÿ RadioButton
  K, I: Integer;
implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
// Ôîðìèðîâàíèå ýëåìåíòîâ ôëîðìû

Form2.Width:=740;
Form2.Height:=540;
Form2.Caption:='Ñîçäàíèå òåñòà';

Label1.Left:=Left_N;
Label1.Top:=Top_N;
Label1.Font.Style:=[fsBold];
Label1.Font.Size:=10;
Label1.Caption:='Íàçâàíèå òåñòà';

Edit1.Text:='';
Edit1.Top:=Top_N;
Edit1.Left:=Left_N+Label1.Width+10;
Edit1.Width:=300;

Top_N:=Top_N+40;

Label2.Left:=Left_N;
Label2.Top:=Top_N;
Label2.Font.Style:=[fsBold];
Label2.Font.Size:=10;
Label2.Caption:='Êîëè÷åñòâî âîïðîñîâ';

SpinEdit1.Left:=Left_N+Label2.Width+10;
SpinEdit1.Top:=Top_N;
SpinEdit1.MinValue:=5;
SpinEdit1.MaxValue:=20;
SpinEdit1.Text:='5';
SpinEdit1.Width:=40;

Top_N:=Top_N+60;

Label3.Left:=Left_N;
Label3.Top:=Top_N;
Label3.Font.Style:=[fsBold];
Label3.Font.Size:=10;
Label3.Caption:='Âîïðîñ ¹1';

Top_N:=Top_N+40;

Label4.Left:=Left_NN;
Label4.Top:=Top_N;
Label4.Font.Style:=[fsBold];
Label4.Font.Size:=9;
Label4.Caption:='Òåêñò';

Edit2.Text:='';
Edit2.Top:=Top_N;
Edit2.Left:=Left_NN+Label4.Width+10;
Edit2.Width:=600;
Left_NN:=Left_NN+Label4.Width+10;

Top_N:=Top_N+40;

GroupBox1.Left:=620;
GroupBox1.Top:=Top_N+20;
GroupBox1.Width:=90;
GroupBox1.Height:=180;
GroupBox1.Font.Style:=[fsBold];
GroupBox1.Caption:='Ïðàâèëüíûé';
GroupBox1.Font.Size:=8;

// Ôîðìèðîâàíèå ðàçäåëà îòâåòîâ

K:=2; Top_NN:=-20;
For I:=1 To 4 do
  begin
  Top_N:=Top_N+40; Top_NN:=Top_NN+40;

  TLabel(FindComponent('Label'+IntToStr(K+I+2))).Left:=Left_NN;
  TLabel(FindComponent('Label'+IntToStr(K+I+2))).Top:=Top_NN;
  TLabel(FindComponent('Label'+IntToStr(K+I+2))).Font.Size:=9;
  TLabel(FindComponent('Label'+IntToStr(K+I+2))).Caption:='Îòâåò ¹'+IntToStr(I);

  TEdit(FindComponent('Edit'+IntToStr(K+I))).Text:='';
  TEdit(FindComponent('Edit'+IntToStr(K+I))).Left:=200;
  TEdit(FindComponent('Edit'+IntToStr(K+I))).Top:=Top_N;
  TEdit(FindComponent('Edit'+IntToStr(K+I))).Width:=400;

  TRadioButton(FindComponent('TRadioButton'+IntToStr(I))).Caption:='';
  TRadioButton(FindComponent('TRadioButton'+IntToStr(I))).Left:=40;
  TRadioButton(FindComponent('TRadioButton'+IntToStr(I))).Top:=Top_NN;
  TRadioButton(FindComponent('TRadioButton'+IntToStr(I))).Width:=10;
  end;

  // Ôîðìèðîâàíèå íèæíåé ÷àñòè ôîðìû

  Top_N:=Top_N+70;

  Button1.Caption:='Ïðåäûäóùèé';
  Button1.Left:=Left_NN+100;
  Button1.Top:=Top_N;
  Button1.Width:=100;
  Button1.Height:=30;
  Button1.Enabled:=False;

  Button2.Caption:='Ñëåäóþùèé';
  Button2.Left:=Left_NN+250;
  Button2.Top:=Top_N;
  Button2.Width:=100;
  Button2.Height:=30;

  Button3.Caption:='Çàïèñàòü';
  Button3.Left:=Left_NN+500;
  Button3.Top:=Top_N;
  Button3.Width:=100;
  Button3.Height:=30;
  Button3.Enabled:=False;
end;

end.

задала свойства - форма вообще не запускается. помогите, пожалуйста, руки уже опускаются

[northener]

форма вообще не запускается. помогите, пожалуйста

Никакие формы никогда не запускаются. Вы их с чем-то перепутали.

[Serge_Bliznykov]

1) Название темы не соответствует правилам форума
2) Перед копированием текста (для вставки на форум) включайте русскую раскладку клавиатуры. Или выкладывайте текст программы в виде исходных файлов (*.pas, *.dfm), запаковав эти файлы в архив.

[PaHaNjkee]

Попробуйте в самом начале procedure TForm2.FormCreate(Sender: TObject);
вставить:

Left_N := 20;
Top_N := 20;
Left_NN := 40;
Top_NN := 40
{к примеру}