Olá, Bom... a intensão é a seguinte: fazer de um arquivo do bloco de notas um bd do programa: var Form1: TForm1; nome, tipo, evolucao, ataque: string; arquivo: textfile; begin nome:=edit1.Text; tipo:=edit2.Text; evolucao:=edit3.Text; ataque:=edit4.Text; AssignFile(arquivo,'teste.txt');//atribuir tudo do teste.txt na variavel arquivo Rewrite(arquivo);//abre o arquivo para escrita, tornar ele editavel Write(arquivo,'Nome:');//escreve no arquivo Writeln(arquivo,nome); Write(arquivo,'Tipo:'); Writeln(arquivo,tipo); Write(arquivo,'Evolução:'); Writeln(arquivo,evolucao); Write(arquivo,'Principal Ataque:'); Writeln(arquivo,ataque); Closefile(arquivo); edit1.Text:=' '; edit2.Text:=' '; edit3.Text:=' '; edit4.Text:=' '; O cod acima, é um cod bobo, que serve de ex, porém este cod só é capaz de salvar no bloco de notas o ultimo cadastro. Se algúem tiver alguma idéia de como fazer para que todos os cadastros sejam salvos, por favor ajude!