Importação TXT p/ sql server usando delphi

Var
Arquivo: TextFile;
Linha: String;
begin

OpenDialog1.Execute;

Assign(Arquivo, OpenDialog1.Filename );
Reset(Arquivo);

while Not Arquivo.Eof do begin
ReadLn(Arquivo,Linha);

Campo1 := Copy(Linha,X,Y);
Campo2 := Copy(Linha,X,Y);
Campo3 := Copy(Linha,X,Y);
Campo4 := Copy(Linha,X,Y);
Campo5 := Copy(Linha,X,Y);
.....

GRAVASQLSERVER;
end;

[quote:c189ea33bc=´Fernando Luiz´]preciso importar um arquivo texto que gere um banco de dados em sqlserver[/quote:c189ea33bc]

Eu usaria o DTS do SQLServer, além de ser muito mais simples é muito mais rápido.