1:
2:
3:
4:
5:
6:
7:
8:
9:

....
    //laden
    Error:=AddFontResource(pchar(FontFileName));
    //Fehlerprüfung
    if Error<>0 then
      ShowMessage('Font nicht geladen');
    //Systemnachricht    
    SendMessage(HWND_BroadCast,WM_Fontchange,0,0);
....					

1:
2:
3:
4:

...
  RemoveFontResource(pchar(FontFileName));
  SendMessage(HWND_BroadCast,WM_Fontchange,0,0);
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Procedure TForm1.SetMyRichEdit;
const 
  szRTF= 'rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset0 '
        +'Arial;}{\f1\froman\fprq2\fcharset2 Symbol;}}'
        +'{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 Winkel \f1 '
        +'F\f0\par}';
 
Var
  s : TStringStream;

Begin
  s := TStringStream.Create (szRTF);
  Try
    MyRichEdit.Lines.LoadFromStream (s);
  Finally
    s.Free;
  End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do
    begin
    Cells[0,0] := 'Name';
    Cells[1,0] := 'Telefon';
    Cells[0,1] := 'Müller';
    Cells[1,1] := '0251 / 00 00 00';
    Cells[0,2] := 'Meier';
    Cells[1,2] := '0900 / 00 00 00';
    end;
end;

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var x : Integer;
begin
  with StringGrid1 do
    if  not (gdFixed in State) then
      if ACol = 1 then
        begin
        Canvas.FillRect(Rect);
        Canvas.Font.Name := 'Wingdings';
        Canvas.Font.Color := clred;
        Canvas.TextOut(Rect.Left+2,Rect.Top+2,'(');
        x := Canvas.TextHeight('(');
        Canvas.Font := Font;
        Canvas.Font.Color := clBlue;
        Canvas.TextOut(Rect.Left+2,Rect.Top+2+x,Cells[ACol,ARow]);//Top + x = nächste Zeile
        end;
end;