function DeleteSpaces(const aSrc:String):String;
var
 isSpace: Boolean;
 i,j: Integer;
 s,s1:string;
begin
 SetLength(Result,Length(aSrc));
 isSpace := False;
 j :=  0 ;
 for i :=  1  to Length(aSrc) do
 begin
   if (aSrc[i] <> ' ') then
     begin
     Inc(j);
     Result[j] := aSrc[i];
     isSpace := False;
     Continue;
   end;
   if (isSpace) then Continue;
      Inc(j);
      Result[j] :=aSrc[i];
      isSpace := True;
 end;
 SetLength(Result,j);
end;

BULK INSERT Database.dbo.[Table]
   FROM FileName

   WITH  ( DATAFILETYPE = N'char',  
         FIELDTERMINATOR = N';',
         ROWTERMINATOR = N'\n',
      )