работа с файлами

[Antonio86]

Доброго времени суток!
Необходимо осуществить чтение файла и поиск в нем необходимого значения.
моя реализация данной задачи осуществляет данный поиск, но только один раз. Помогите найти ошибку. Заранее благодарен.

function TFWResources.FindRead(tt : string):string;
var
TName, dlm: string;
L: Integer;
ListCom : TStringList;
L2, sp, a: Longint;
F: file;
Size, i: Integer;
Buffer: PChar;
begin
L := Length(TT);
ts_init(PChar(TT), L);
try
AssignFile(F, 'test.txt');
Reset(F, 1);
Size := FileSize(F);
GetMem(Buffer, Size + L + 1);
try
BlockRead(F, Buffer^, Size);
StrCat(Buffer, PChar(TT));
SP := 0;
A := 0;
while SP < Size do
begin
L2 := Ts_Search(Buffer, PChar(TT), L, SP);
SP := L2 + L;
Inc(a);
end;
ListCom := TStringList.Create;
ListCom.Text := Buffer;
for i := 0 to ListCom.Count do
begin
dlm := ListCom.NameValueSeparator;
TName := ListCom.Values[tt];
end;
result := TName;
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;
end;

Вызов функции:

mode := 'ErrStart_1';
ins := UUnit1.FindRead(mode);
MessageDlg(ins, mtInformation, [mbOk], 0);