Delphi: Undeclared identifier:'Label1' hiba. Mi a megoldás?

Az alábbi kóddal azt szeretném csinálni, hogy amikor megnyomom a Buton1-et, akkor másolja ki a szöveg első 4 betüjét, és írja ki a Label1-re, de az Undeclared identifier:'Label1' hibát kapom.

A Form-on rajta van a Label1.

Muszáj függvényt alkalmaznom.

procedure elso4betu(bemenet: String);

begin

Label1.caption:=copy(bemenet, 1, 4);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

StringToLabel('szoveg');

end;