Delphi - rutinas

como puedo programar una sola vez y llamar dicha rutina ya que se repite en varios botones, ejemplo>
botonnuevoonclik
begin
xxxxx
xxxx
edit1.clear;
edit2.clear;
edit3.clear;
xxxx
xxx
end

botoncancelaronclik
begin
xxxxx
xxxx
edit1.clear;
edit2.clear;
edit3.clear;
xxxx
xxx
end

las x son codigos propios de cada boton.
por favor dar ejemplos ya que ninca lo pude entender y vivo repitiendo cogigo y cuando modifico algo tengo que modificar en todos los procedures que utilizo las mismas sentencias (con el temor de olvidarme alguna). gracias

Pues es muy simple, aquí va un ejemplo rapidito.
TForm1=Class(TForm)
...
private
...
public
procedure CodigoComun;
end;
...
implementation
procedure TForm1.CodigoComun;
begin
{ aquí va el codigo común a todos los demás }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
xxxxxxxx
xxxxxxxx
CodigoComun;
xxxxxxx
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
yyyyyyyy
yyyyyyyy
CodigoComun;
yyyyyyy
end;

Espero lo entiendas.