Проблема с циклом while

[asp1k]

Добрый день я только начинаю в программирование и ещё многого недопонимаю.
Можете подсказать в чём ошибка
Надо посчитать сумму чисел,начиная со строки 1 из файла 2.txt

Memo1.Lines.LoadFromFile('2.txt');
p:=memo1.lines.Count-1;

while 1>p do
  begin
    Z:=StrToInt(Memo1.Lines[p]); //записываем в Z число
    m:=m+z; //Складываем сумму
    p:=p-1; //Вычитаем строку из Р т.к. мы её записали
  end;

  Label1.Caption:='Общя сумма: '+IntToStr(m);

  end;

[MyLastHit]

While тут не к месту немного. Я бы через

for i:=0 to p do

делал

[asp1k]

Спасибо.
Работает.
Надо было мне сразу через for делать)

[ArtGrek]

а если нужен именно while

procedure TForm1.Button1Click(Sender: TObject);
var
  myFile: TextFile;
  Z: integer;
  str: string;
begin
  AssignFile(myFile, 'c:\outfile.txt');
  Reset(myFile);
  Z := 0;
  while not Eof(myFile) do // Eof = True, если курсор файла находится в конце.
  begin
    ReadLn(myFile, str);
    Z:= Z + StrToInt(str);
  end;
  CloseFile(myFile);
  ShowMessage(IntToStr(Z));
end;