Busca em um arquivo de texto.

var
posIni,PosFin:Integer;
Texto:String;

procedure TForm1.FormShow(Sender: TObject);
begin
texto:=(´501# Poção feita de ervas vermelhas. Recupera ^000088cerca de 45 HP^000000,´+
´dependendo da sua vitalidade. ^0000FFDê um clique duplo neste item para´+
´recuperar alguns HP.^000000´+
´^ffffff_^000000´+
´Peso : ^7777777^000000´+
´´+
´502´+
´Poção feita de ervas vermelhas e amarelas. Recupera ^000088cerca de 105 HP^000000, dependendo da sua vitalidade.´+
´^ffffff_^000000´+
´Peso : ^77777710^000000´+
´´+
´503´+
´Poção feita de ervas amarelas. Recupera ^000088cerca de 175 HP^000000,´+
´dependendo da sua vitalidade.´+
´^ffffff_^000000´+
´Peso : ^77777713^000000´+
´´);
posIni:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 copyText:String;
begin
if  posIni> 0 Then
   posFim:=PosEX(´#´,texto,posIni+1)
else
  begin
   posIni:=pos(´´,Texto);
   posFim:=PosEX(´´,texto,posIni+1);
 end;
 copyText:=copy(texto,PosIni+1,posFim-(posIni+1));
 PosIni:=posEx(´´,texto,posFim+1);
 posFim:=PosEX(´´,texto,PosIni+1);
 Showmessage(copyText);
end;

502
lalala
01
03

var
Texto:String;
posIni,PosFim:integer;
begin
Texto := ´abcdef/12345/p5p5p5´;
PosIni:=Pos(´/´,Texto);
Showmessage(copy(texto,1,posIni-1));
PosFim:=PosEx(´/´,texto,PosIni+1);
Showmessage(copy(texto,posIni+1,posFim-PosIni-1));
Showmessage(copy(texto,posFim+1,Length(texto)-PosFim));
end;