[dec]

Hola,

Tal vez después del "do" te falta un "begin":

Código Delphi [-]
var
  a,i,b:integer;
begin
  a:=Strtoint(edit1.text);
  for i:=1 to 10 do
  begin
    b:=a*i;
    memo1.lines.add(inttostr(b));
  end;
end;