I got error in my Procedure

[onlyhasbi]

procedure Tform1.EnterToTeks(Sender:Tobject);
Begin
  if Tedit(Sender).Text=Tedit(sender).Hint then
     Tedit(Sender).Clear;
end;

procedure Tform1.ExitToTeks(Sender:Tobject);
Begin
  if Tedit(Sender).Text=EmptyStr then
     Tedit(Sender).Text:=Tedit(Sender).Hint;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to (ComponentCount-1) do
     begin
      if Components is TEdit then
         Begin
           TEdit(Components).OnEnter:=EnterToTeks; //Here
           TEdit(Components).OnExit:=ExitToTeks;
         end;
     end;
end;

When i Try to compile this code, I got error in //Here ? anyone can solve and explain, why that's occur ?

[eny]

Code: [Select]

Components [i] ...

[howardpc]

and if you're using {$mode objfpc} you'll need to add an "@":

Code: [Select]

   TEdit(Components[i]).OnEnter:=@EnterToTeks;