captionbutton.gif Example
CaptionButton component

procedure TForm1.CaptionButton1Pressed(Sender: TObject);
begin
  CaptionButton4.Sign := 'B';
end;

procedure TForm1.CaptionButton1Released(Sender: TObject);
begin
  CaptionButton4.Sign := 'A'
;
end;