Como ler de um txt e gravar no meu banco ?

MG@nm@@nm@Washington Ribeiro@nm@37072030@nm@Varginha@nm@Distrito Industrial Miguel de Luca@nm@Avenida @nm@@nm@

Query.Close;
Query.CommandText:= 'Insert into TMINHA_TABELA (val1, val2, val3.. valn) values (' + Array[0] + ',' + Array[1] + ',' ... Array[n] + ')';
Query.ExecSQL;

var
  wTexto: String;
  wInformacoes: TStringDynArray;
  wNome, wIdade, wCidade, wUF, wPais: String;
begin
  wText:= 'Maicon|21|Blumenau|SC|Brasil';
  wInformacoes:= SplitString(wText, '|'); // parametro 1: texto que eu quero dividr, parametro 2: separador usado, ret: array de palavras
  wNome:= wInformacoes[0];
  wIdade:= wInformacoes[1];
  wCidade:= wInformacoes[2];
  wUF:= wInformacoes[3];
  wPais:= wInformacoes[4];
end;

var
  wSL: TStringList;
  wText: String;
begin
  wSL:= TStringList.Create;
  wSL.LoadFromFile('C:\\MinhaPast\\MeuArquivoTexto.txt');
  wText:= wSL.Text;
  wSL.Free;

procedure TForm1.Button3Click(Sender: TObject);
var
   f:TextFile;
   linha:String;
   Lista:TStrings;

begin
   Lista:=TStringList.Create;
   AssignFile(f,'C:\\trabalho\\Rodrigo\\cep_logradouros_mg.txt');
   Reset(f); //abre o arquivo para leitura;
   Lista.DelimitedText:='@nm@';

   While not eof(f) do begin

     Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha
     memo1.lines.add(linha);
     label1.caption := linha;
   End;

   Closefile(f);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  linha:String;
  Lista:TStrings;
  ArrayPalavras: TStringDynArray;
begin
  Lista:=TStringList.Create;
  Lista.LoadFromFile(''C:\\\\zz.txt'');
  ArrayPalavras:= SplitString(Lista.Text, ''@nm@'');

  for linha in ArrayPalavras do
  begin
    memo1.lines.add(linha);
    label1.caption := linha;
  End;
end;