Dann Probier doch einfach ob du schreiben darst.
Bei bestehender Datei einfach mit TFileStream und Schreibrechte anfordern und das gesammte in einer try..except-Schleife einpacken:
Delphi-Quellcode:
function CanWrite(FileName: String): Boolean;
var
Stream: TFileStream;
begin
try
Stream := TFileStream.Create(FileName, Mitschreibrechten); <- genauen Parameter bitte in Delphi-Hilfe nachschauen
result := True
Stream.Free;
except
result := False;
end;
end;