RE:Ayuda con la función Pos();
procedure TForm1.Button1Click(Sender: TObject);
begin
{ function Pos(Substr: string; S: string): Integer;
Esta Funcion te permite obtener la Posicion de un
Carcater contenido una cadena, por ejemplo..
de la Frase "TU AMIGO", si queremos recuperar
la posicion de la Primera "A"(en este caso solo
tenemos una "A")..
podriamos ...
}
ShowMessage(IntToStr(Pos('A','TU AMIGO')));
end;
Hasta luego y responde si solucionas tu problema..