[frostikit]

Спасибо большое, но я вчера посидел и додумался как сделать)))

PHP код:

procedure TForm3.Button1Click(Sender: TObject);
var n1,n2,pr,z,n:integer; s:string;
begin
  memo1.Clear;
  n1:=strToInt(Edit1.Text);
  n2:=strToInt(Edit2.text);
  for n:=n1 to n2 do
    if n mod 2 <> 0 then
      begin
        pr:=n*n;
        s:=floattostr(pr);
        Edit3.text:=floattostr((memo1.Lines.Count)+1);
        z:=strtoInt(Edit3.Text);
        memo1.Lines.Append(s);
      end;
    case z of
    2,3,4: Label3.Caption:='раза';
    0,1,5..999: Label3.Caption:='раз';
end; 


На case..of не обращайте внимания, свои задумки)

Но есть еще 1 вопросик
Как написать подпрограмму которая работает как функция TrimLeft?