+ Small Win32 fix

fcl/db/dbase/Dbf_DbfFile.pas

@@ -2432,9 +2432,11 @@ end;
 
 procedure TDbfGlobals.InitUserName;
 {$ifdef FPC}
+{$ifndef win32}
 var
   TempName: UTSName;
 {$endif}
+{$endif}
 begin
 {$ifdef WIN32}
   FUserNameLen := MAX_COMPUTERNAME_LENGTH+1;