problema para limpiar cajas de texto

[tebre]

Lo que necesito es un procedimiento para limpiar mis controles.. y no estar repitiendo codigo.

la ayuda seria porque falla mi codigo o que de plano me dieran otra solucion



unit UEmpleados;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TFrmEmpleados = class(TForm)
PcModificarEmpleado: TPageControl;
TabModificaEmpleado: TTabSheet;
TabSheet3: TTabSheet;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Login: TLabel;
password: TLabel;
EdNumEmpleado: TEdit;
EdAppaterno: TEdit;
EdApmaterno: TEdit;
EdNivel: TEdit;
CmbDireccion: TComboBox;
EdNombre: TEdit;
EdLogin: TEdit;
EdPassword: TEdit;
BtnGuardar: TBitBtn;
BtnCancelar: TBitBtn;
BtnNuevo: TBitBtn;
LblClaveDireccion: TLabel;
LblEncriptado: TLabel;
CmbEmpleado: TComboBox;
Seleccionar: TLabel;
BtnModificar: TBitBtn;
LblModificaEmpleado: TLabel;
EdMNumEmpleado: TEdit;
EdMNombre: TEdit;
EdMAppaterno: TEdit;
EdMApmaterno: TEdit;
EdMNivel: TEdit;
EdMLogin: TEdit;
EdMPassword: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
CmbMDireccion: TComboBox;
BtnMActualizar: TBitBtn;
BtnMCancelar: TBitBtn;
BtnMSalir: TBitBtn;
lBLGuardaClave: TLabel;
procedure CmbMDireccionEnter(Sender: TObject);
procedure BtnModificarClick(Sender: TObject);
procedure CmbEmpleadoSelect(Sender: TObject);
procedure TabModificaEmpleadoEnter(Sender: TObject);
procedure CmbDireccionEnter(Sender: TObject);
procedure CmbDireccionClick(Sender: TObject);
procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char);
procedure EdNivelKeyPress(Sender: TObject; var Key: Char);
procedure BtnCancelarClick(Sender: TObject);
procedure CmbDireccionSelect(Sender: TObject);
procedure FormShow(Sender: TObject);

procedure EdPasswordEnter(Sender: TObject);
procedure EdLoginEnter(Sender: TObject);
procedure EdNivelEnter(Sender: TObject);
procedure EdApmaternoEnter(Sender: TObject);
procedure EdAppaternoEnter(Sender: TObject);
procedure EdNombreEnter(Sender: TObject);
procedure EdNumEmpleadoEnter(Sender: TObject);
procedure EdPasswordClick(Sender: TObject);
procedure EdLoginClick(Sender: TObject);
procedure EdNivelClick(Sender: TObject);
procedure EdApmaternoClick(Sender: TObject);
procedure EdAppaternoClick(Sender: TObject);
procedure EdNombreClick(Sender: TObject);
procedure EdNumEmpleadoClick(Sender: TObject);
procedure BtnGuardarClick(Sender: TObject);
procedure BtnNuevoClick(Sender: TObject);
//procedure limpiar(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmEmpleados: TFrmEmpleados;
implementation
uses Uconexion;
{$R *.dfm}

function encriptar(aStr: String; aKey: Integer): String;
begin
Result:='';
RandSeed:=aKey;
for aKey:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;

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