Procedure AssignFixedString( Var FixedStr: Array of Char; Const S: String

);

Var

  maxlen: Integer;

Begin

  maxlen := Succ( High( FixedStr ) - Low( FixedStr ));

  FillChar( FixedStr, maxlen, ' ' ); { blank fixed string }

  If Length(S) > maxlen Then

    Move( S[1], FixedStr, maxlen )

  Else

    Move( S[1], FixedStr, Length(S));

End;

function StrToArrays(str, r: string; out Temp: TStrings): Boolean;

var

  j: integer;

begin

  if temp <> nil then

  begin

    temp.Clear;

    while str <> '' do

    begin

      j := Pos(r,str);

      if j=0 then

        j := Length(str) + 1;

      temp.Add(Copy(Str,1,j-1));

      Delete(Str,1,j+length(r)-1);

    end;

    Result:=True;

  end

  else

    Result:=False;

end;