EJEMPLO TEXTUAL MULTIPLICAR CON SUMAS

SOLUCIÓN PROGRAMA NUMERO 4(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;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls;typetform1 = 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;varform1: tform1;implementation{$r *.dfm}procedure tform1.cerrarclick(sender: tobject);beginclose;end;procedure tform1.borrarclick(sender: tobject);beginnum1.clear;num2.clear;solucion.caption:='';num1.setfocus;end;procedure tform1.productoclick(sender: tobject);varn1,n2,producto,i:integer;beginproducto:=0;n1:=strtoint(num1.text);n2:=strtoint(num2.text);for i:=1 to n2 doproducto:=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: