Title: How to get the current Username (Kylix)function GetCurrentUser: string;varpwrec: PPasswordRecord;beginpwrec := getpwuid(getuid);Result := pwrec.pw_name;end;