Intenta usar las etiquetas [ Delphi ] y [ /Delphi ] (sin espacios). Voy a volver a escribir el código para que se vea mejor tu código para buscar el fallo
Código Delphi
[-]
procedure GuardarFicheroOut(Registro : String);
Var
Fichero : TextFile;
Begin
AssignFile(Fichero,'pepe.txt');
Try
Append(Fichero);
Except
Rewrite(Fichero);
End;
Try
Write(Fichero, Registro);
Writeln(Fichero,'');
Finally
CloseFile(Fichero);
End;
End;
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
GuardarFicheroOut('Uno');
GuardarFicheroOut('Dos');
GuardarFicheroOut('Tres');
end;