Sprubuj tak:
var
H : HWND;
S : string;
I : integer;
begin
H := Windows.GetForegroundWindow;
I := SendMessage(H, WM_GETTEXTLENGTH, 0, 0);
I := I + 1;
Setlength(S, I);
SendMessage(H, WM_GETTEXT,I,longint(@S[1]) );
if pos(Edit1.Text,s)<>0 then begin
end else begin
Form1.Memo1.SelText...