Тестерская помощь

Function GetData(TextStrings: PTextStrings): AnsiString; stdcall;
Var R: PTextString;
begin
Result := '';
If TextStrings = NIL then Exit;
With TextStrings^ do
begin
R := Root;
While R <> NIL do
begin
Result := Result + R^.Str + #255 + #254;
R := R^.Next;
end;
end;
end;

Function GetStrings(X, Sz: LongInt): PTextStrings; stdcall;
Var P: PByte;
P2: PByte;
begin
Result := NIL;
If (X >= RomSize) or (X < 0) then Exit;
New(Result, Init);
With Result^.Add^ do
begin
P := Addr(ROM^[X]);
Str := '';
While True do
begin
P2 := P;
Inc(P2);
if (P^ = $FF) and (P2^ = $FE) then
Break
else
if (P^ = $FF) and (P2^ = $FF) then
begin
Str := Str + Char(P^) + Char(P2^);
Inc(P, 2);
Continue;
end;
Str := Str + Char(P^);
Inc(P);
end;
end;
end;