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