Dividir por restas sucesivas

Aquí tienes la ficha con los objetos que voy a utilizar:

He puesto controles Tlabel para el titulo y las etiquetas de los NUMEROS.Tambien tengo otro control Tlabel  en la parte de abajo de la ficha  para poner el resultado. Los cuadros a la derecha de las etiquetas NUMERO son controles TEdit. Luego he puesto los botones; DIVISION Y BORRAR son (TButton) de la paleta standard  y el  botón cerrar de la paleta Adicional.  Observa los nombres que les he puesto mirando el codigo.
Hacerte observar que yo simplemente he escrito 'a dedo' el codigo del  evento On_Click del boton DIVISION, el  codigo evento On_Click del botón Borrar  y el OnClick de Cerrar; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha.
El código del programa:
unit DIVIDIR;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls;

type
tform1 = class(tform)
label1: tlabel;
label2: tlabel;
num1: tedit;
label3: tlabel;
num2: tedit;
division: tbutton;
borrar: tbutton;
cerrar: tbitbtn;
solucion: tlabel;
procedure cerrarclick(sender: tobject);
procedure borrarclick(sender: tobject);
procedure divisionclick(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
form1: tform1;

implementation

{$r *.dfm}

procedure tform1.cerrarclick(sender: tobject);
begin
close;
end;

procedure tform1.borrarclick(sender: tobject);
begin
num1.clear;
num2.clear;
solucion.caption:='';
num1.setfocus;
end;

procedure tform1.divisionclick(sender: tobject);
var
n1,n2,n3,division:integer;
begin
division:=0; //es el cociente
n1:=strtoint(num1.text);
n2:=strtoint(num2.text);
n3:=n1; //para conservar los valores originales
while n3>=n2 do
begin
n3:=n3-n2;
division:=division+1;
end;
solucion.caption:='el cociente de '+num1.text+' : '+num2.text+' es = '+
inttostr(division);
end;

end.
Todas las ordenes deberian ser conociadas.
Y este es el programa ejecutando: