Wort unter Memo-Cursor finden.

[nabbl]

Habe es probiert, komme aber nicht weiter
Hier mein Quellcode bisher. Wäre super, wenn da jemand mal einen Blick drüber werfen würde und mich auf den Fehler hinweisen könnte.

Sourcecode ist mein Memo.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SelTmp, Row: Integer;
  SelSt, SelEnd: Integer;
  tmp:string;
begin
  // In welcher Zeile vom Memo befinden wir uns?
  Row := SendMessage(SourceCode.Handle, EM_LINEFROMCHAR, SourceCode.SelStart, 0);
  SelTmp := SourceCode.SelStart;
  SelEnd:=SelTmp;
  SelSt:=SelTmp;

  while (SelEnd <= Length(SourceCode.Lines[Row])) do begin
    tmp := Copy(SourceCode.Lines[Row],SelEnd,1);
    if ((tmp = '') or (tmp = ' ')) then begin
      SelEnd:=SelEnd-1;
      Break;
    end;
  end;
  while (SelSt >= 0) do begin
    tmp := Copy(SourceCode.Lines[Row],SelSt-1,1);
    if ((tmp = '') or (tmp = ' ')) then begin
      SelSt:=SelSt-1;
      Break;
    end;
  end;
  ShowMessage(Copy(SourceCode.Lines[Row],SelSt, SelEnd-SelSt+1));
end;

Danke