1:
2:
3:

  display.Text := display.Text + chr(226);
  display.Text := display.Text + chr(153);
  display.Text := display.Text + chr(166);					

1:
2:
3:
4:
5:

  richedit1.Lines.LoadFromFile('cards.txt');
  richedit1.SelStart := 0;  // bzw. 1 für pik, 2 für kreuz... 
  richedit1.SelLength := 1;
  richedit1.CopyToClipboard;
  display.PasteFromClipboard;					

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:
32:
33:
34:
35:
36:
37:
38:
39:

const
  RTFString = '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset0 Arial;}}'
    + #13#10 + '{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 %s'
    + #13#10 + '}';
  AdviceString = 'Schreibe unten deinen Text!\par'
    + #13#10 + 'Dabei ersetze \u9824? durch !!PIK!!, \u9827? durch !!KREUZ!!, \u9829? durch !!HERZ!! und \u9830? durch !!KARO!!, danach klicke den Button rechts!\par';
  CodePlaceHolder: array[0..3] of string = ('!!PIK!!', '!!KREUZ!!', '!!HERZ!!', '!!KARO!!');
  Code: array[0..3] of string = ('\u9824?', '\u9827?', '\u9829?', '\u9830?');

[...]

procedure DisplayRTFCode(uCode: string; uRichEdit: TRichEdit);
var
  Stream: TStream;
begin
  Stream := TStringStream.Create(uCode);
  try
    Stream.Position := 0;
    uRichEdit.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

procedure TfrmMain.btnStartClick(Sender: TObject);
var
  tmp: string;
  i: Integer;
begin
  tmp := memInput.Text;
  for i := 0 to High(CodePlaceHolder) do
    tmp := StringReplace(tmp, CodePlaceHolder[i], Code[i], [rfReplaceAll]);
  DisplayRTFCode(Format(RTFString, [tmp]), redtOutput);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  DisplayRTFCode(Format(RTFString, [AdviceString]), redtAdvice);
end;					

1:

RichEdit1.SelText := '{\rtf1{\fonttbl{\f0\fcharset0;}}\u9824\''3f}';