captionbutton CaptionButton example
acCaptionButton component
Return to Introduction 
procedure TForm1.CaptionButton1Pressed(Sender: TObject);
begin
  CaptionButton4.Sign := 'B';
end;

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