function IsDrive(lw: Char; dt: Integer): Boolean;
function DirExists(dir: string): Boolean;
 

function BitsProPixel: Integer;
procedure DrawBitmap(drCanvas: TCanvas; drBitmap: TBitmap; drRect: TRect);
procedure Line(drwCanvas: TCanvas; x1, y1, x2, y2: Integer);
function GetIcon(fn: string; flag: Integer): HICON;
 

procedure RegApplication(Firm, Title, Version: string);
procedure UnRegApplication(Firm, Title: string);
procedure UnRegFirm(Firm: string);
procedure RegUnInstall(Title, DisplayName, UnInstExe: string);
procedure UnRegUnInstall(Title: string);
procedure RegFileType(ftExt, ftName, ftTitle, ftApplication: string; ftIcon: Integer);
procedure UnRegFileType(ftExt, ftName: string);
 

function GetShellFolder(ShellFolderID: Integer): string;
function ShellCopy(ha: THandle; f, t: string; fl: Byte): Boolean;
function ShellMove(ha: THandle; f, t: string; fl: Byte): Boolean;
function ShellDelete(ha: THandle; f: string; fl: Byte): Boolean;
 

function InStr(p: Integer; s, ts: string): LongInt;
function DownInStr(p: Integer; s, ts: string): LongInt;
function GetStrCount(s, ts: string): Integer;
procedure FindToken(str, sep: string; tl: TStringList);
function TextToNumber(s: string): LongInt;
 

function GermanTime: string;
function GermanDate: string;
function IsFileNameExt(FileName, FileExt: string): Boolean;
function PosFileNameExt(FileName: string): Integer;
function CutFileNameExt(FileName: string): string;
function ChangeFileNameExt(FileName, NewExt: string): string;
function AddBackSlash(Path: string): string;
function CutBackSlash(Path: string): string;
function IsCorrectFileName(FileName: string): Boolean;
function MakeCorrectFileName(FileName: string): string;
function GetSizeStr(Size: LongInt): string;
 

function GetWinDir: string;
function GetSysDir: string;
function GetTempDir: string;
function IsKeyDown(i: Integer): Boolean;
procedure Pause(Application: TApplication; ms: LongInt);
 

procedure TextOutEx(drwCanvas: TCanvas; drwX, drwY, drwAngle: Integer; drwText: string);