Fórum Copiando dados entre Tabelas do Sql Server 2005 #401017

    Pessoal,  sou novato na área e não to conseguindo copiar dados de uma tabela pra outra ,  tenho programa que gravo tudo local no meu micro no final do dia quero copiar pro servidor ,  tenho duas base identicas no meu micro e outro no servidor , estou tentando construir a lógica com while , mas estou errando em alguma coisa e não acho, vcs podem me ajudar

codigo
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Tb_S_Setor.First;
  while Not Tb_L_Setor.Eof  do
        Begin
          Tb_S_setor.Append;
          Tb_S_setor.FieldByName('CodigoSeg').AsString := Tb_L_setor.FieldByName('CodigoSeg').AsString;
          Tb_S_setor.FieldByName('Codigo').AsString      := Tb_L_setor.FieldByName('Codigo').AsString;
          Tb_S_setor.FieldByName('Status').AsString       := Tb_L_setor.FieldByName('Setor').AsString;
        End;

end;

 Veja quero copiar os dados da planilha  Tb_L_Setor para Tabela Tb_S_Setor e quando executo so grava o primeiro campo e fica num loop sem fim , coloquei alguns comando entre os dois end , como tb_S_Setor.Next , mas não resolveu fica o loop do mesmo jeito