procedure TForm1.Button1Click(Sender: TObject);
var
FConcurso:TextFile;
CrLf:String;
sTexto:String;
i:Integer;
begin
CrLf=Chr(13)+Chr(10);
cCamino:='c:\Concurso.txt';
AssignFile(FConcurso, cCamino);
Rewrite(FConcurso);
sTexto:='Ejemplo de linea ';
For i:=1 to 10 do
begin
Write(FConcurso, sTexto+IntToStr(i)+CrLf);
end;
CloseFile(FConcurso);
end;