Multiplicar con sumas

Comienzo preparando una vez más los controles que necesito en un ficha nueva como puedes ver en la imagen.

Objetos utilizados: 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; PRODUCTO Y BORRAR son (TButton) de la paleta standard  y el  botón de Borrar (para hacer otro pase) de la paleta Adicional.  Observa los nombres que les he puesto mirando el codigo.
Te insisto que yo simplemente he escrito 'a dedo' (podia tirarme un pegote y deir que era todo mio) el codigo del  evento On_Click del boton PRODUCTO, 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 PRODUCTO;

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;
producto: tbutton;
borrar: tbutton;
cerrar: tbitbtn;
solucion: tlabel;
procedure cerrarclick(sender: tobject);
procedure borrarclick(sender: tobject);
procedure productoclick(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.productoclick(sender: tobject);
var
n1,n2,producto,i:integer;
begin
producto:=0;
n1:=strtoint(num1.text);
n2:=strtoint(num2.text);
for i:=1 to n2 do
producto:=producto+n1;
solucion.caption:='el producto de '+num1.text+' x '+num2.text+' es = '+
inttostr(producto);
end;

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