Свойства Объекта Font..........

[blackstersl]

Я так понял тебе нужен эфект ссылки вотто что тебе нужно! Пользуйся

var
  Form1: TForm1;
  clicked:boolean;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
 clicked := true;
   label1.Font.Style := [fsbold,fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
if clicked = true then
label1.Font.Style := [fsBold];
if clicked = false then
label1.Font.Style := [];

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
clicked := false;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
if clicked = false then
label1.Font.Style := [fsUnderline];
if clicked = true then
label1.font.Style := [fsBold,fsUnderline];
end;

[psycho-coder]

Когда же вы будете думать? (риторический)

procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Font.Style:=[fsBold];
  clicked := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  clicked := false;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  if clicked then
    Label1.Font.Style:=[fsBold]
  else
    Label1.Font.Style:=[]
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if clicked then
    Label1.Font.Style:=[fsUnderline, fsBold]
  else
    Label1.Font.Style:=[fsUnderline];
end;

[psycho-coder]

2blackstersl
Мыслим одинаково

[evg_m]

Style это множество (set)

Label1.Font.Style:= Label1.Font.Style + [fsUnderline, fsBold] добавть

Label1.Font.Style:= Label1.Font.Style - [fsUnderline, fsBold] убрать