procedure copyStr2Ara(const ins:string;pa:pointer;lange:cardinal);
type
  ta = array [0..maxint-1] of char;
var
  sizeofa:cardinal;
  tocopy :cardinal;
begin
  sizeofa:=lange*sizeof(char);
  if sizeofa>0 then begin
    tocopy:=sizeof(char)*length(ins);
    if tocopy<=sizeofa then begin
      if tocopy>0 then
        move(ins[1],ta(pa^)[0],tocopy);
      if tocopy<sizeofa then fillchar(ta(pa^)[tocopy],sizeofa-tocopy,' ');
    end
    else
      move(ins[1],ta(pa^)[0],sizeofa);
  end;
end;