Lendo e escrevendo arquivos com Delphi.

Este código mostra simplificadamente como escrever e ler arquivos (.txt por exemplo) com o Delphi/Lazarus

Var
  F:TextFile;

Begin
   AssignFile(f,'c:\caminho\do\seu\arquivo.txt');
   Rewrite(f); //abre o arquivo para escrita

   Writeln(f,'Teste em uma linha'); // escreve no arquivo e desce uma linha

e   Write(f,'Teste sem descer uma linha'); // escreve no arquivo sem descer a linha
   Closefile(f); // Fecha o handle de arquivo
End;

{ Código para LER o arquivo }

var
   f:TextFile;
   linha:String;

begin
   AssignFile(f,'c:\caminho\do\seu\arquivo.txt');
   Reset(f); // Abre o arquivo para leitura;

   While not eof(f) do begin
     Readln(f,linha); // Lê do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha
     Memo1.lines.add(linha);
   End;

   Closefile(f);
end;