Manipular Arquivos

  Porque Duas Variáveis F: TextFile;  A: TextFile;   ??????   Var
F: TextFile;
Begin
AssignFile(f,'c:\TextoEdit.txt');   rewrite(f);                //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha   writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);              //fecha o handle de arquivo
end;

CARA ACHO QUE ESTOU ERRANDO AI!!!   preciso usar mais do que um edit mas com 2 variaveis nao da, e com uma so tambem nao!!!
  sei la como acrescentar outro componente.

Tem que ver se ter permissão para escrita   O Windows Vista Por exemplo , acho que usando o Diretorio Raiz não consegue   Mas tente usar um Outro Diretorio   AssignFile(f,'C:\Nova Pasta\TextoEdit.txt');

pera iiiiiiiii vou tentar!!!!

Mazaaaaaaaaaaaaaaaaaaaaaa   olha so consegui!!!     Var
F: TextFile;
A: TextFile;
Begin
AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');
AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');
rewrite(f);   //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha
writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);//fecha o handle de arquivo

..   Mas não precisa de Duas Variáveis né ????

Cara na verdade prescisa pois exemplo:   cada variavel é um edit entendeu?     F: TextFile; AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');   e   A:TextFile; AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');     AGORA PRECISO ACHAR UM JEITO DE CRIAR UMA CONSULTA POR LINHAS USANDO O EDIT!!!!

Pode ser que vc esta pensando algo e falando outra coisa que não tem nada a ver   Uma coisa é Gravar Duas Variaveis em Um Arquivo .......Outra é Gravar Uma Variavel em DOIS Arquivos     O Valor do Edit é Gravado nessas Linhas do WriteLen e Não do AssignFile   Então esta confuso... 

  Cara, uma forma bem simples de se gravar o que você quer:

Para gravar:
var    lArquivo:TStringList;begin    lArquivo := TStringList.Create;    lArquivo.Add( 'edit1='+edit1.Text );  // Adiciono o primeiro edit    lArquivo.Add( 'edit2='+edit2.Text );  // Adiciono o segundo edit    lArquivo.Add( 'edit3='+edit3.Text );  // Adiciono o terceiro edit    lArquivo.SaveToFile( 'c:\NOVAPASTA\TextoEdit.txt');    lArquivo.Free;end;


Para ler os arquivos de volta
var    lArquivo:TStringList;begin    lArquivo := TStringList.Create;    lArquivo.LoadFromFile('c:\NOVAPASTA\TextoEdit.txt');    edit1.text := lArquivo.values['edit1'];      edit2.text := lArquivo.values['edit2'];      edit3.text := lArquivo.values['edit3'];      lArquivo.Free;end;

Bom cara usei seu codigo realmente ficou melhor que o meu, mais organizado!!!!!
vale pela dica!!!
mas tipo preciso de algo para buscar num txt sabe digitar no edit e buscar a linha correspondente,
é complicado e árduo mas ira valer a pena apos ficar pronto!!!

so vc usar o IndeOf do TStrings  

deu certo?