//----------------------------------------------------------------

procedure TForm1.FormClick(Sender: TObject);
begin
     if Color = clBlue then
        Color := clRed
     else
         Color := clBlue;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
     if Color = clBlue then
       begin
         Color := clRed;
         Caption := 'Red Form';
       end
     else
       begin
         Color := clBlue;
         Caption := 'Blue Background'
       end
end;