[Delphi]BlockRead i BlockWrite!

Witam mam taki problem:
Mam program ktory odczytuje za pomoca Funkcji blockRead Zawartosc pliku .exe
I zapisuje 1024 bity do pliku .txt
Po tym nastepuje analiza tego pliku txt.
Funkcja powtarza sie az nie dotrze do konca pliku.

I moim problemem jest to ze chcialbym przed zapisaniem Buffera do pliku txt zmienic wszystkie znaki na male litery.
Czyli
BlockRead();
Zmiana na male litery
BlockWrite();
Analiza.

Drugim sposobem moglo by byc aby podczas analizy tego pliku .txt nie zwaracalo uwagi na wielkosc znakow.
Wiec:
Jezeli chce wyszukac np. wyraz "smtp" a w pliku txt jest "SmTp" to aby takze wyswietlil to w moim raporcie.

Mam napisana taka funkcje(jest ona poprawna i dziala):

 
Procedure Zamien(plik:string);
var
  Fl: TextFile;
  tekst2,tekst:string;
begin
  AssignFile(Fl, plik);
  Reset(Fl);
    while not Eof(Fl) do
  begin
  ReadLn(Fl,tekst2);
  Tekst:=tekst+tekst2;
  end;
  CloseFile(Fl);
  AssignFile(Fl, plik);
  Rewrite(Fl);
  WriteLn(Fl, AnsiLowerCase(Tekst));
  CloseFile(Fl);
end;

ale jak probuje go wykonac wyskakuje I/O Error 32 poniewaz z pliku txt ktory chce wykorzystac korzysta juz inna funkcja(wyszukujaca pozycje wyrazu w pliku txt)

Najlepszym dla mnie rozwiazaniem bylo by znalezienie funkcji ktora wyszuka mi wyraz w pliku txt i zwroci true jezeli znajdzie lub false jezeli go nie znajdzie.

Mysle ze wyrazilem sie jasno jezeli nie prosze o jakis kontakt.

Pozdrawiam,
Igorekpl