{
File open dialog...
}
function FileOpenDialog(FileName:String):Integer;
var n:Integer;
begin
 n:=0;
 if Length(Trim(FileName))>0 then
 //if DirExists(ExtractFilePath(FileName)) then
 n:=Round(Eval('@System @Async @Open /d '+FileName));
 FileOpenDialog:=n;
end;
