Проблема с TEdit и TLabel

[Frishka]

Всем доброго времени суток!

В программировании я совсем ещё новичок, но есть очень сильное желание чему-то научится. Писала программы раньше, но они были совсем простенькими.

Сейчас пишу программу тестирования сотрудников компании. Очень хочу, чтобы программа получилась удобной в эксплуатации. В общем вот суть проблемы такова:

Я создала в одном Project три Form (Form1, Form2 и Form3). В Form1 нужно ввести данные сотрудника (Фамилия, Имя и Отчество), а в Form3 я хочу в компоненты Label1, Label2 и Label3 вставить Фамилия, Имя и Отчество сотрудника, которые он до этого ввел на Form1 в Edit1, Edit2 и Edit3. Там будет типо приветствия: "Такой-то такой-то такой-то добро пожаловать в программу тестирования" и несколько правил перед началом теста.

Прописала uses Unit1;
и присвоила значение Edit1.Text переменной fam (перед этим в var описала как тип String).

Потом в коде программы Unit3 значение переменной fam присвоила свойству Label1.Caption, но ничего все равно не получается. Введенная там фамилия так и не выводится. В Интернете ничего не нашла. В скаченных книгах тоже. Может здесь мне помогут. Потому что проблема до ужаса смешна мне очень стыдно о таких элементарных вещах спрашивать, но понять и узнать такого рода задачки тоже) Желание узнать что-то новое пересилило) Помогите, пожалуйста

[Аlex]

нафиг эти переменные просто напиши

Label1.Caption := Form1.Edit1.Caption

только перед этим надо в меню нажать файл-> использовать модуль (use unit)и выбрать form1

[Frishka]

Alex, почему-то все равно не хочет.
У меня процедура называется Label1.Click... может не OnClick нужно или это вообще значения не имеет?

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

покажи код обьявления переменной
и код присваивания её значения Лейблу

[Frishka]

В общем вот код Form1:

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Visible:=False;
 Form2.Show;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Form3.Label1.Caption:=Edit1.Text;
end;

procedure TForm1.Edit2Click (Sender: TObject);
begin
 Form3.Label2.Caption:=Edit2.Text;
end;

procedure TForm1.Edit3Click (Sender: TObject);
begin
 Form3.Label3.Caption:=Edit3.Text;
end;

end.

и код Form3:

var
  Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.Label1Click(Sender: TObject);
begin
 Label1.Caption:=Form1.Edit1.Text;
end;

procedure TForm3.Label2Click(Sender: TObject);
begin
 Label2.Caption:=Form1.Edit2.Text;
end;

procedure TForm3.Label3Click(Sender: TObject);
begin
 Label3.Caption:=Form1.Edit3.Text;
end;

end.

[KORN]

при открытии новой формы это писать нужно

procedure TForm3.FormShow(Sender: TObject);
begin
Label1.Caption:=Form1.Edit1.Text;
Label2.Caption:=Form1.Edit2.Text;
Label3.Caption:=Form1.Edit3.Text;
end;

и вместо Form1.Visible:=False; пиши form1.hide

[Frishka]

Пепел Феникса
Я уже это удалила.
Но выглядело это в var как:

var
name: String

А в самой программе:

Procedure Edit1.OnClick (...)
begin
  name:=Edit1.Text;
end;
end.

Вот как-то так. Но сами операции присваивания были написаны именно так.

[Frishka]

KORN, получается таким образом?
В Form1:

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Hide;
 Form2.Show;
end;

end.

а в Form3:

var
  Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.Form3Show(Sender: TObject);
begin
Label1.Caption:=Form1.Edit1.Text;
Label2.Caption:=Form1.Edit2.Text;
Label3.Caption:=Form1.Edit3.Text;
end;

end.

[KORN]

ну да, перед тем как переспросить на форуме желательно проверить то что написала

[Frishka]

KORN ну я проверила уже, поэтому и спросила. Все равно ничего не получается