Caracter en una cadena !!!

[marcoszorrilla]

Aquí tienes un ejemplo explícito del uso de dicha función:

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.