Bueno el código hace lo que requieres...el problema es que despues de for...do hay un punto y coma que esta de mas...
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
o,n,i:integer;
begin
listbox1.items.clear;
n:=strtoint(edit1.text);
for i:= 1 to 12 do listbox1.items.add(format('%d x %d = %d',[n,i,n*i]));
end;
Saludos cordiales