Example CaptionButton component

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

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