Function AnsiPos

Uses Unit SysUtils

A função AnsiPos retorna a posição de um determinado caractere de uma String.

Sintaxe da sua utilização:

AnsiPos(Caractere_a_ser_localizado,Texto);

Ex:

procedure TForm1.Button25Click(Sender: TObject);begin
       label1.Caption:=IntToStr(AnsiPos('r','marcio')); //Localiza num texto a letraend;