[lmikle]

угу... перед Pr в описании функции поставь var.
и вообще, кто так пишет???

Код:

procedure CreateBlock(Canvas:TCanvas;x,y,z,x1,y1,x2,y2:integer;
  var Pr:boolean;s:string);
begin
  if Pr 
    then Canvas.Brush.Color:=clgreen;
    else Canvas.Brush.Color:=clred;

  Canvas.rectangle(x1,y1,x2,y2);
  Canvas.Font.Size:=z;
  Canvas.Font.Color:=clBlack;
  Canvas.TextOut(x,y,s);
  Pr:= not Pr;
end;