acceder a un fichero

[nesetru]

hola!

estoy intentando acceder a un fichero para escritura, lo que hago es:

//Abro el fichero para escritura
FileHandle := FileOpen(fichero, fmOpenWrite);
//si existe
if (FileHandle > 0 ) then
//inserto texto en el ficchero
begin
FileWrite(FileHandle, 'si funciona', SizeOf(15));
FileWrite(FileHandle, 'MIN=', SizeOf(15));
//Cerramos el fichero.
FileClose(FileHandle);
end
else
MessageDlg('ha ocurrido un error con el fichero.',mtError,[mbOk],0);

El problema es que nunca llega a abrirse correctamente el fichero, ya que nunca me inserta nada pese a que la ruta del fichero que le indico es la correcta(la obtengo asi en una función:
...
ruta:=ExtractFilePath(Application.ExeName);
Result:=(ruta + 'Datos\11.lg');...)


//Abro el fichero para escritura //inserto texto en el ficchero