вставить листинг в делфи

[sssnake13]

Всем доброе время суток, значит есть листинг программы его каким то образом необходимо вставить в делфи, а куда и как я почему то не знаю после создания формы пытался вставить в unit1.pas но не одна кнопка не работает, вот значит сам листинг

Var // раздел переменных  модуля Unit1
X:Integer;  // объявление внешней переменной X  - загадываемое число
procedure TForm1.Edit1Change(Sender: TObject); // изменение поля Edit1
Var v,e:Integer;// v   значения числа после перевода, e   код ошибки (0-нет)
Begin Val(Edit1.Text,v,e); // перевод числа из поля Edit1.Text в  V
Button1.Enabled:=e=0;  	   // условие доступности Button1
Button2.Enabled:=False;    // блокировка кнопки Button2 (Попытка)
Edit2.Enabled:=e=0           // условие доступности поля Edit2
end;
procedure TForm1.Edit2Change(Sender: TObject); // изменение поля Edit2
Var v,e:Integer; // v   значения числа после перевода, e   код ошибки (0-нет)
Begin 
Val(Edit2.Text,v,e);           // перевод числа из поля Edit2.Text в  V
Button2.Enabled:= e=0;     // условие доступности Button2
end;
procedure TForm1.Button1Click(Sender:TObject);//кнопка “Загадай число”
var v,e:Integer; // v   значения числа после перевода, e   код ошибки (0-нет)
begin  Val(Edit1.Text,v,e);               // перевод числа из поля Edit1.Text в  V
   Randomize; X:=random(v);           // формирование случайного числа X
   Edit1.Enabled:=False;  Button2.Enabled:=True; Edit2.Enabled := True;      
   Edit2.SetFocus;  	                            // установка фокуса на поле Edit2
End;
procedure TForm1.Button2Click(Sender: TObject); // кнопка “Попытка”
Var v,e:Integer; // v   значения числа после перевода, e   код ошибки (0-нет)
Begin Val(Edit2.Text,v,e); // перевод числа из поля Edit2.Text в  V
If  v>X  then  Edit3.text:='Перелет' else 
If  v<X  then  Edit3.text:='Недолет' else   Edit3.text:='Вы угадали';
Edit4.Text:=IntToStr(StrToInt(Edit4.Text)+1);//число попыток увеличить на 1
Edit2.SetFocus;  	                                         // установка фокуса на поле Edit2
end;
procedure TForm1.Button3Click(Sender: TObject); //кнопка “Очистить”
begin  Edit1.Text:='';  Edit2.Text:='';  Edit3.Text:='';  Edit4.Text:='0';
Edit1.Enabled:=True;       // разблокировка поля ввода числа N
Button1.Enabled:= False; // блокировка кнопки “Загадай число”
Button2.Enabled:= False; // блокировка кнопки “Попытка”
Edit1.SetFocus;                 // установка фокуса на поле Edit1
X:= 0                                 // загадываемое число первоначально равно нулю
end;
procedure TForm1.Button4Click(Sender: TObject); // кнопка “Выход”
begin Close; end;

Извините за ламерство!

[Stilet]

Не-е-е.
Так не получится.
Нужно кидать на форму компоненты два .Edit, четыре кнопки.
После чего для Эдитов прописать (согласно этому коду) события OnChange
а для кнопок события OnClick.
Двойным кликом по компоненту откроешь его обработчик, и туда вставляй из этого приведенного тобой кода ту часть, которая отвечает этому компоненту.