unit versioninfo; interface uses configunit; function Get_VersionString(exename: string): string; implementation function Get_VersionString(exename: string): string; begin Result:= 'slftp-1.3.0.7 -'+config.ReadString('irc','nickname',''); end; end.