¿cómo puedo poner la tabla de multiplicar en un listbox?

[frankmanuel06]

bueno soy nuevo en esto de programar y mi pregunta es esta como puedo hacer un programa que yo ponga un numero en un edit y me ponga la tabla de multiplicar de dicho numero, bueno yo ya e comenzado pero no me funciona. estos son los codigos:

procedure TForm1.Button1Click(Sender: TObject);
var
o,n,i:integer;
begin
n:=strtoint(edit1.text);
o:=i*n;
for i:= 1 to 12 do;
listbox1.items.add((edit1.text)+inttostr(i)+'='+inttostr(o))

end;

end.
bueno espero me ayuden y gracias de antemano .