arquivos de texto

procedure CriaArquivo;
var
Arquivo: TextFile;
i : integer;
Linha: String;
begin
  AssignFile(Arquivo,  ExtractFilePath(Application.ExeName)+´substancias.txt´);
  Rewrite(Arquivo);

  try
    for I := 0 to 5 do
    begin
      // 1-20  Alinha a esquerda com brancos a direita   delimitador     22-61 Alinha a direita com brancos a esquerda
      Linha := Format(´¬-20s´, [IntToStr(i)])          +      ´;´    +   Format(´¬20s´,[IntToStr(i)]);
      WriteLn(Arquivo, Linha);
    end;
  finally
    CloseFile(Arquivo);
  end;
end;


procedure LeArquivo;
var
Arquivo: TextFile;
begin
  AssignFile(Arquivo,  ExtractFilePath(Application.ExeName)+´substancias.txt´);
  try
   cds.open;
    while not EOF(Arquivo) do //Laço que testa se repete até o arquivo chegar no final
    Begin
       // aqui teria que ler os dados do arquivo (meu problema)
       
       cds.insert
       cds.PrimeiroCampo.asstring := primeira coluna do arquivo;
       cds.SegundoCampo.asstring := segunda coluna do arquivo;
       cds.post

    End;
  finally
    CloseFile(arquivo);//Fecha o arquivo
  end;
end;