fixes && binary builds

Author: pozitronik

MailRuCloud.dpr

@@ -449,6 +449,7 @@ var // 
 begin
 	Result := 0;
 	GlobalPath := path;
+	if Assigned(Cloud) then FreeAndNil(Cloud);
 	if GlobalPath = '\' then
 	begin // ñïèñîê ñîåäèíåíèé
 		Sections := TStringList.Create;
@@ -519,7 +520,7 @@ begin
 			Result := true;
 		end
 		else Result := false;
-    Sections.Free;
+		Sections.Free;
 	end else begin
 		// Ïîëó÷åíèå ïîñëåäóþùèõ ôàéëîâ â ïàïêå (âûçûâàåòñÿ äî òåõ ïîð, ïîêà íå âåðí¸ò false).
 		if (Length(CurrentListing) > FileCounter) then
@@ -537,7 +538,6 @@ end;
 
 function FsFindClose(Hdl: thandle): integer; stdcall;
 Begin // Çàâåðøåíèå ïîëó÷åíèÿ ñïèñêà ôàéëîâ. Result òîòàëîì íå èñïîëüçóåòñÿ (âñåãäà ðàâåí 0)
-	if Assigned(Cloud) then FreeAndNil(Cloud);
 	Result := 0;
 	FileCounter := 0;
 end;