Abrindo um arquivo txt no Delphi

Prezados,

Coloquei um opendialog e estou tentando, a partir do propriedade FileName deste, abrir um arquivo txt para escrever nele. A função que estou usando é a seguinte:

procedure TForm1.OpenDialog1Close(Sender: TObject);begin Assignfile(ARQ, OpenDialog1.FileName); reset(ARQ); append(ARQ); writeln(ARQ, 'ola1 '); writeln(ARQ, 'ola2 '); writeln(ARQ, 'ola3 '); Closefile(ARQ);end;

Mas não da certo, eu acredito que seja na função Assignfile(ARQ, OpenDialog1.FileName); , pois este requer o segundo parâmetro como String, e estou tentando usar um tipo TFileName. Existe algum modo de converter isso pra string? O erro é este mesmo?

Obrigado,

Filipe Silva.