[Kopik]

Тут возникла небольшая проблема. Если для
for i:=1 to N do
число N брать из edit1.text, то выдаёт ошибку несовместимости типов. Если же задать i:real, то цикл ругается на i. В принципе, я решил проблему через сравнение в While и i:=i+1, но вопрос остался. Если нужно сложить числа типа word и extended, то какие есть способы это сделать?

[NumLock]

Код:

var
  i: Integer;
begin
  for i:=0 to StrToInt(Edit1.Text) do
  begin
  end;
end;