1:

" is not a valid integer value					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);
var x,i,a:Integer;
begin
   x :=1;
   while x<11 do
    begin
      memo1.Lines.Add(FloatToStr(x));
      inc(x);
    end;
    i:=0;
    while i<11 do
    begin
    a:= StrToInt(memo1.Lines[i]);
    a:=a*a;
    memo2.Lines.add (IntToStr(a));
    inc(i);
    end;
   
end;

end.