Delphi - procedure

Hola, como estan los programadores de este foro

soy nuevo en este ambiente de DELPHI, todavia estoy curiosando en su entorno,
y veo que cuando uno le da un click a un objeto que este encima del formulario
me abre una seccion de procedimiento para programar, bien en mi caso es estoy haciento un menu despleglabe y me tira esto:

procedure registrarclientes1 click( sender: Tobject)

me gustaria saber si alguien puede explicarme por que el programa pone sendertobject,
entre parentisis, y si yo quisiera agregar un procedimiento o alguna funcion que yo la haya creado donde la inserto.


by. Att. Torre

Esta es la estructura básica de una unidad de codigo, te explico en ella donde puedes declarar funciones y procedimientos

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
//Aqui se declaran los procedimientos generales para la unidad, los que pongas aqui deben tener una contraparte que es la que está más abajo
private
//Aqui se declaran los procedimientos generales para la unidad, además de que solo se pueden usar en esta unidad, los que pongas aqui deben tener una contraparte abajo
{ Private declarations }
public
//Aqui se declaran los procedimientos generales para la unidad, además de que pueden ser usadas en otras unidades, los que pongas aqui deben tener una contraparte abajo
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//Este procedimiento no necesita ser declarado en la parte de arriba, y solo pueden usarse en esta unidad, además de que si lo haces de esta forma solo los procedimientos que está debajo de ellos lo pueden usar

Procedure MiProcedimiento;
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

//Puedes poner funciones y procedimientos dentro de ellos mismos con la siguiente estructura, los que declares de esta forma, solo son usados por sus procedimietnos padre

procedure TForm1.Button1Click(Sender: TObject);
procedure mi_procedimiento_encapsulado;
bgegin

end;
begin

end;

end.