[Pigmalion]

А вот ещё:

Код:

 procedure CreateBlock(Canvas:TCanvas;x,y,z,x1,y1,x2,y2:integer;
  Pr:boolean;s:string);
begin
if Pr then
    begin
     Canvas.Brush.Color:=clgreen;
     Canvas.rectangle(x1,y1,x2,y2);
     Canvas.Font.Size:=z;
     Canvas.Font.Color:=clBlack;
     Canvas.TextOut(x,y,s);
     Pr:= not Pr;
    exit;
    end;
if not Pr then
    begin
     Canvas.Brush.Color:=clred;
     Canvas.rectangle(x1,y1,x2,y2);
     Canvas.Font.Size:=z;
     Canvas.Font.Color:=clBlack;
     Canvas.TextOut(x,y,s);
     Pr:= true;
    exit;
   end;
  end;

Вроде всё правильно.Процедура должна менять цвет прямоугольника при щелчке и обратно.Закрашивает в новый, а обратно никак.