не могу обединить програмные модули...

[helena91]

помогите пожалуйста. очень нужно, срочно! завтра здавать

я пишу програму-тестирование
содержыт два проекта: редактор тестов и тестирование

в модуле Unit4 :
[Error] Unit4.pas(41): Undeclared identifier: 'Label7'
[Error] Unit4.pas(42): Undeclared identifier: 'Label9'
[Error] Unit4.pas(43): Undeclared identifier: 'Table1'
[Error] Unit4.pas(44): Undeclared identifier: 'CheckBox1'
[Error] Unit4.pas(45): Undeclared identifier: 'CheckBox2'
[Error] Unit4.pas(46): Undeclared identifier: 'CheckBox3'
[Error] Unit4.pas(47): Undeclared identifier: 'CheckBox4'
[Error] Unit4.pas(48): Undeclared identifier: 'DBRadioGroup1'
[Error] Unit4.pas(48): 'THEN' expected but identifier 'ItemIndex' found
[Error] Unit4.pas(50): Undeclared identifier: 'DBImage1'
[Error] Unit4.pas(51): Undeclared identifier: 'DBMemo1'
[Error] Unit4.pas(55): Undeclared identifier: 'DBImage1'
[Error] Unit4.pas(56): Undeclared identifier: 'DBMemo1'

Вот сам текст модуля:
unit Unit4;

interface

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

type
TForm4 = class(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Edit3: TEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation
uses Unit1, Unit5;
{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'')
then
begin
Form4.Close;
Form1.Hide;
Form5.Show;
Form5.Label7.Caption:='ВIДПOВIДАЄ: '+Edit1.Text+' '+Edit2.Text;
Form5.Label9.Caption:='0';
Form5.Table1.First;
Form5.CheckBox1.Checked:=false;
Form5.CheckBox2.Checked:=false;
Form5.CheckBox3.Checked:=false;
Form5.CheckBox4.Checked:=false;
if Form5.DBRadioGroup1.ItemIndex=0 then
begin
Form5.DBImage1.Visible:=true;
Form5.DBMemo1.Visible:=false;
end
else
begin
Form5.DBImage1.Visible:=false;
Form5.DBMemo1.Visible:=true;
end;
end
else MessageDlg('Запoвнiть уci пoля!', mtInformation, [mbOk], 0);
end;

end.

Здесь я залила свой проект:http://zalil.ru/30365610

[Пепел Феникса]

а у вас на пятой форме есть 7 и 9-ая метки?(TLabel)

[helena91]

да, есть 7 и 9-ая

[Volt]

вот подправил стал запускаться. Но вот работает ли сам проект большой вопрос. а лучше выложите то что работает и напишите что нужно объединить

[helena91]

нужно ообьеденить два проекта: TestRedactor и Test
в результате должны быть два ехе-файла: ввод тестовых вопросов и проходжение самого теста