Не удаляется переменная

procedure TForm2.NTransfer(ms:tmemorystream;packetsize:int64);
var smc:TServerMethods1Client;
    N:integer;
    i:integer;
    bufferstream:tmemorystream;
    Buffer:TBytes;
    
 
begin
 
 ms.Position:=0;
 bufferstream:=tmemorystream.Create;
 
 N:=(ms.Size div packetsize);
 
 
 if N=0 then exit; // Для "Маленьких" файлов меньше packetsize...
 
[B]// smc:=TServerMethods1Client.Create(Form2.sqlconnection1.DBXConnection); 
// Если создавать до цикла - алгоритм отказывается работать...[/B]
  
 for i := 1 to N do  begin
 smc:=TServerMethods1Client.Create(Form2.sqlconnection1.DBXConnection);
 
          Buffer:=nil;
          bufferstream.Clear;
 
          SetLength(Buffer, packetsize);
          ms.ReadBuffer(buffer,packetsize); // Прочитали в буфер из потока...
 
 
          bufferstream.WriteBuffer(buffer,packetsize); //Записали в другой поток
          bufferstream.Position:=0;
          ms.Position:=packetsize*i; // Передвинули позицию
 
          smc.GetstreamByPackets(bufferstream,packetsize); // Отправили на сервер...
 
 
 
[B] // Также Если поставить здесь smc.Free  то перестает работать, почему?[/B]
 
            end;
 
bufferstream:=nil;
bufferstream.Free;
smc.Destroy;
      
 
        
end;