1:

 s := s+Text[i];					

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:

 function WordatCaret: String;
 var
   i, n: Integer;
   s: String;
 begin
  s := '';

  with RichEdit1 do
  begin
   n := SelStart+1;

   {Wortanfang suchen}
   for i := SelStart downto 0 do
   begin
    if Text[i] = ' ' then break;
    Dec(n);
   end;

   {Wortende suchen}
   for i := n to Length(Text) do
   begin
    if (Text[i] = ' ') or (Text[i] = #13) then break;
    s := s+Text[i];  // -> hier!
   end;
  end;

  Result := s;  {Das Wort}
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:

Function WordAtCaret (Const sText : String; aCaretPos : Integer) : String;
Var
  iCaret, ResultPos : Integer;

Begin
  SetLength (Result, ciMaxWordLength);
  iCaret := aCaretPos + 1;
  While (iCaret>1) And (sText[iCaret])=' ' Do Dec(iCaret); 
  ResultPos := 0;
  while (iCaret <= Length (sText)) And Not (sText[iCaret] in [' ', #13]) Do Begin
    Inc (ResultPos);
    (* Wenn Wörter länger als ciMaxWordLength herauskommen können *)

 // If ResultPos>Length (Result) Then 
 //   SetLength (Result, Length (Result)+1000); 
    
    Result[ResultPos] := sText[iCaret];
    inc (iCaret);
  End;
  SetLength (Result, ResultPos);
End;
...
// Aufruf:
  TheWord := WordAtCaret (RichEdit.Text, RichEdit.SelStart);					

1:

TheWord := WordAtCaret (RichEdit.Text, RichEdit.SelStart);					

1:

TheWord := WordAtCaret (RichEdit.Text, RichEdit.SelStart - Länge_des_Wortes);					

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:

{Der Code ist im Wesentlichen von alzaimar (Delphi-Forum)}
function WordAtCaret(const sText: String; aCaretPos: Integer): String;
var
  iCaret, ResultPos, i: Integer;
begin
 SetLength (Result, 1000);//ciMaxWordLength);

 {Wortanfang suchen}
 for iCaret := aCaretPos downto 0 do
  if (sText[iCaret] in [' ', #10]) then break;

 iCaret := iCaret+1;

 while (iCaret > 1) and (sText[iCaret] = ' ') do Dec(iCaret);

 ResultPos := 0;

 {Wortende ermitteln}
 while (iCaret <= Length (sText)) and not (sText[iCaret] in [' ', #13]) do
 begin
  Inc (ResultPos);
  {Wenn Wörter länger als 1000//ciMaxWordLength herauskommen können}
  {if ResultPos > Length (Result) then SetLength (Result, Length(Result)+1000);}
  Result[ResultPos] := sText[iCaret];
  Inc(iCaret);
 end;

 SetLength(Result, ResultPos);

 iWortLength := Length(Result); //naja, und hier die ungeliebte globale Variable.
end;					

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

 {Das aktuelle Wort mit den "ShortHint's" in EingabeKorrL vergleichen, ...}
 for i := 0 to EingabeKorrL.Count-1 do
 begin
  if WordAtCaret(RichEdit1.Text, RichEdit1.SelStart) = GetShortHint(EingabeKorrL[i]) then
  begin                                       {... und wenn gefunden, ...}
   with RichEdit1 do
   begin
    Lines.BeginUpdate;
    SelStart := SelStart-iWortLength; //ich muss ja an den Anfang des Wortes gehen,
    SelLength := iWortLength;         //damit ich es selektieren kann!
    SelText := GetLongHint(EingabeKorrL[i]);  {... dieses korrigieren.}
    Lines.EndUpdate;
   end;
   break;
  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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

{Anfang und Ende des Wortes, auf dem das Caret liegt, in einem TCustomMemo}
{ermitteln, mit WordCorrList vergleichen und, falls enthalten, selektieren}
{und korrigieren. Die Items müssen das Format  falsch|richtig  haben.}
{Der Code stammt im Original von alzaimar (Delphi-Forum).}
{http://www.delphi-forum.de/topic_Zeichen+an+Stringvariable+anhaengen_89220.html}
function WordCorrection(const CustomMemo: TCustomMemo;
 aCaretPos, iMaxWordLen: Integer; const WordCorrList: TStringList): String;
var
  iCaret, ResultPos, iPos: Integer;
  sText: String;
begin
 SetLength(Result, iMaxWordLen);

 sText := CustomMemo.Text;

 {iCaret initialisieren}
 iCaret := aCaretPos;

 {Wortanfang suchen}
 if aCaretPos > 1 then
  for iCaret := aCaretPos downto 0 do
   if (sText[iCaret] in [' ', #0, #10]) then break;

 Inc(iCaret);
 while (iCaret > 1) and (sText[iCaret] = ' ') do Dec(iCaret);

 ResultPos := 0;

 {Wortende ermitteln}
 while (iCaret <= Length(sText)) and not (sText[iCaret] in [' ', #13]) do
 begin
  Inc (ResultPos);

  {Wenn Wörter länger als iMaxWordLen herauskommen können}
  if ResultPos > Length(Result) then SetLength(Result, Length(Result)+iMaxWordLen);

  Result[ResultPos] := sText[iCaret];
  Inc(iCaret);
 end;

 SetLength(Result, ResultPos);
 if (Result = '') or (Pos(#10, Result) > 0) or
    (Pos(#13, Result) > 0) or (Pos(' ', Result) > 0) then exit;


 {Das aktuelle Wort mit den "ShortHint's" in WordCorrList vergleichen, ...}
 for iCaret := 0 to WordCorrList.Count-1 do
 begin
  if Result = GetShortHint(WordCorrList[iCaret]) then
  begin                                            {... wenn gefunden, ...}
   with CustomMemo do
   begin
    iPos := SelStart;
    Lines.BeginUpdate;
    SelStart := SelStart-Length(Result);
    SelLength := Length(Result);
                             {... und keines dieser Zeichen enthalten, ...}
    if (Pos(' ', SelText) > 0) or (Pos(#10, SelText) > 0) or
       (Pos(#13, SelText) > 0) then
    begin
     SelStart := iPos;
     Sellength := 0;
     Lines.EndUpdate;
     break;
    end;

    SelText := GetLongHint(WordCorrList[iCaret]);  {... dieses korrigieren.}
    Lines.EndUpdate;
   end;  {end von "with CustomMemo do"}
   break;
  end;  {end von "if Result = [...]"}
 end;  {end von "for iCaret := 0 do [...]"}
end;