AnsiContainsStr - czy miożna szybciej niż...

Witam
Mam utworzony plik tekstowy postaci:
liczba1;tekst1#
liczba2;tekst2#
liczba3;tekst3#
...
liczban;tekstn#
Chciałbym alby po odszukaniu odpowiedniej liczby wyświetlił mi się tekst odpowiadający tejże liczbie Stosowałem taki kod:

function TForm1.AnsiContainsStr(FLine, FFind : string) : Boolean;
var
SharpPos, SredPos : Integer;
begin
  SredPos := AnsiPos(';',FLine);
  SharpPos  := AnsiPos('#',FLine);
  if liczba0 = AnsiLeftStr(Fline, SredPos -1) then
     TekstPrzypomnienia := AnsiMidStr(FLine, SredPos+1, SharpPos-SredPos-1);
end;

Który zwraca true jeśli znajdzie odpowiednią liczbę i w stringu TP to co chcę...
przy komplilacji wychodzi że musiałbym stwożyś kolejną funkcję AnsiMidStr i AnsiLeftStr, czy jest szybszy sposób ??
Chodzi mi o to abym załatwił tą sprawę w jednej funkcji
Z góry dziękuje