[rutic]

Не могу понять в чем дело. Надо что бы при нажатии на Button1 вызывалась процедура которая выводила текстовое сообщение в Memo1.

Код:

procedure Lab;
begin
Memo1.Text := 'Процедура';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Lab;
end;

Админ: Пользуемся тегами для оформления кода!

При компиляции возникает ошибка: Undeclared identifer: 'Memo1'.
Если выводить текст в Memo1 из процедуры TForm1.Button1Click все нормально получается. Но мне надо что бы это делала другая процедура которая вызывается из Button1Click.
Delphi7

[ChinYan]

Код:

procedure Lab;
begin
Form1.Memo1.Text := 'Процедура';
end;

[NumLock]

Код:

Form1.Memo1.Text := 'Процедура';

[rutic]

Спасибо, всё заработало

[ChinYan]

Спасибо, всё заработало

Ктоб сомневался