function GetPassword(const InputMask: Char = '*'): string;
var
  OldMode: Cardinal;
  c: char;
begin
  GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode);
  SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode and not (ENABLE_LINE_INPUT or ENABLE_ECHO_INPUT));
  try
    while not Eof do
    begin
      Read(c);
      if c = #13 then//Carriage Return
        Break;

      if (c = #8) and (Length(Result) > 0) then //Back Space
      begin
        Delete(Result, Length(Result), 1);

        Write(#8);
        Write(' ');
        Write(#8);
      end
      else
      begin
        Result := Result + c;
        Write(InputMask);
      end;
    end;
  finally
    SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), OldMode);
  end;
end;