procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
if FUpdating then Exit;
if fsItalic in CurrText.Style then
   CurrText.Style := CurrText.Style - [fsUnderline]
else
   CurrText.Style := CurrText.Style + [fsUnderline];
End;