Aquí tienes un ejemplo explícito del uso de dicha función:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
If Pos('a','Ejemplo de busqueda')>0 then
ShowMessage('Lo encontré en la posición:'+ IntToStr( Pos('a','Ejemplo de busqueda')));
end;
Un Saludo.