TForm1 = class(TForm)
  Label1 : TLabel;
 public
  procedure changelabel;
end;

Procedure TForm1.changelabel;
begin
label1.caption := "Changed";
end;