problema para limpiar cajas de texto

[tebre]

hola amigos tengo un problema cree un procedimiento para limpiar cajas de texto pero cuando compila el programa me marca en rojo. Alguien podria decirme que pasa, pasarme una funcion o procedimiento para limpiar cajas de texto.
desde ya gracias......... soy nuevo en delphi

Procedure limpiar(Sender: Tobject);
begin
CmbDireccion.Text:='';
EdNumEmpleado.Text:='';
EdNombre.Text:='';
EdAppaterno.Text:='';
EdApmaterno.Text:='';
EdNivel.Text:='';
EdLogin.Text:='';
EdPassword.Text:='';
end;