[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