[Black Raider]

в unit2 сделать так:

В разделе public

Код:

function NewLab(fm1:TForm; lc:String):boolean;

и

Код:

function TForm2.NewLab(fm1:TForm; lc:String):boolean;
begin
....
end;