Обработчик событий

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
label1.Font.Style:=fsItalic;//(программа в этом месте дальше не идет???)
if RadioGroup1.ItemIndex=1 then
label1.Font.Style:=fsBold;
if RadioGroup1.ItemIndex=2 then
label1.Font.Style:=fsUnderline;
end;
end.

  Font.Style:= Font.Style + [fsBold] + [fsItalic];

  Font.Style:= Font.Style - [fsBold];

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MoviedBtn: TButton;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MoviedBtn.Top := Y;
  MoviedBtn.Left := X;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MoviedBtn := TButton.Create(Self);
  MoviedBtn.Parent := Self;
  MoviedBtn.Caption := 'Старт';
end;
 
end.