>>216
with Label.Canvas.Font do
begin
　Color := clBlue;
　Style := (fsUnderline);
end;