[dec]

Hola,

Pues así, sin muchas florituras:

Código Delphi [-]
var
  i: integer;
begin
  i := AnsiPos('texto', Memo1.Text);
  if i <> 0 then
    ShowMessage('Texto encontrado en la posición: '+IntToStr(i))
  else
    ShowMessage('No se encontró el texto');
end;