Wort unter Memo-Cursor finden.

[jaenicke]

Wofür brauchst du denn die Zeile?
Wie wäre es einfach so?

Delphi-Quellcode:

procedure TFormX.memTextClick(Sender: TObject);
var
  MemoText: string;
  TextLen, WordStart, WordEnd: Integer;
begin
  MemoText := memText.Text;

  WordStart := memText.SelStart;
  while (WordStart > 0)
    and (MemoText[WordStart] in ['a'..'z', 'ä', 'ö', 'ü', 'A'..'Z', 'Ä', 'Ö', 'Ü', '0'..'9']) do
    Dec(WordStart);

  TextLen := Length(MemoText);
  WordEnd := memText.SelStart;
  while (WordEnd < TextLen)
    and (MemoText[WordEnd] in ['a'..'z', 'ä', 'ö', 'ü', 'A'..'Z', 'Ä', 'Ö', 'Ü', '0'..'9']) do
    Inc(WordEnd);
  Dec(WordEnd);

  memText.SelStart := WordStart;
  memText.SelLength := WordEnd - WordStart;

  ShowMessage('"' + memText.SelText + '"');
end;

Wobei memText das Memo wäre.