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:
40:
41:
42:
43:
44:
45:

// uses RichEdit, StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Clear;
  RichEdit1.Lines.Add('Satz: Ein kleiner Text.');
  RichEdit1.Lines.Add('Ein weiterer Satz.');
  RichEdit1.Lines.Add('Dieser Satz ist auch sehr kurz.')
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Stelle    : integer;
  Suchwort  : string;
  ChrFormat : TCharFormat2;
  Position  : integer;
  Abbrechen : boolean;
begin
  Suchwort := 'Satz';

  // für Schrifthintergrundfarbe erforderlich
  FillChar(ChrFormat, SizeOf(TCharFormat2), 0);
  ChrFormat.cbSize := SizeOf(TCharFormat2);
  ChrFormat.dwMask := CFM_BackColor;                      // gelber Hintergrund
  ChrFormat.crBackColor := clYellow;

  Abbrechen := false;
  Stelle := 1;
  while not Abbrechen do
    begin
      Position := PosEx(SuchWort, RichEdit1.Text, Stelle);
      if Position > 0 then
        begin
          RichEdit1.SelStart := Position - 1;
          RichEdit1.SelLength := Length(Suchwort);
          RichEdit1.SelAttributes.Style := [fsUnderline];  // unterstrichen
          RichEdit1.SelAttributes.Color := clRed;          // rote Schriftfarbe
          // Schrift gelb hinterlegt
          SendMessage(RichEdit1.Handle, EM_SetCharFormat, SCF_Selection, LParam(@ChrFormat));
          Stelle := Position + Length(Suchwort);
        end
      else
        Abbrechen := true;
    end;
end;					

1:
2:

Tab:=65;
X:=X-(X mod Tab)+Tab;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button4Click(Sender: TObject);
var
  Position      : integer;
  PixelPosition : integer;
  Suchwort      : string;
begin
  Suchwort := 'Satz';
  Position := Pos(Suchwort, Memo1.Text) - 1; 
  PixelPosition := SendMessage(Memo1.Handle, EM_PosFromChar, Position, 0);
  ShowMessage('Zeichenposition: ' + IntToStr(Position) + #13#10 +
              'Pixelposition-X: ' + IntToStr(LoWord(PixelPosition))+ #13#10 +
              'PixelPosition-Y: ' + IntToStr(HiWord(PixelPosition)));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button3Click(Sender: TObject);
var
  Position      : integer;
  PixelPosition : TPoint;
  Suchwort      : string;
begin
  Suchwort := 'Satz';
  Position := Pos(Suchwort, RichEdit1.Text) - 1;
  SendMessage(RichEdit1.Handle, EM_PosFromChar, wParam(@PixelPosition), lParam(Position));
  ShowMessage('Zeichenposition: ' + IntToStr(Position) + #13#10 +
              'Pixelposition-X: ' + IntToStr(PixelPosition.X)+ #13#10 +
              'PixelPosition-Y: ' + IntToStr(PixelPosition.Y));
end;