str: ansistring; вместо str:='';

var
  str: ansistring;
begin
SetLength(str, 0);
end;