procedure AllocInvisibleConsole;
var
  FileName: string;
  Buffer: array[0..MAX_PATH] of Char;
  StartupInfo: TStartUpInfo;
  ProcInfo: TProcessInformation;
  Handle: THandle;
  Coord: TCoord;
  Temp: Cardinal;
  Info: TConsoleScreenBufferInfo;
  Count: NativeUInt;
begin
  SetString(FileName, Buffer, GetSystemDirectory(Buffer, MAX_PATH - 1));
  FileName := IncludeTrailingPathDelimiter(FileName) + 'cmd.exe';

  FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  StartupInfo.wShowWindow := SW_HIDE;
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  if (FileExists(FileName)) and (CreateProcess(PChar(FileName), nil, nil, nil,
    True, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcInfo)) then
  begin
    while (not AttachConsole(ProcInfo.dwProcessId)) do
      Sleep(10);

    TerminateProcess(ProcInfo.hProcess, Temp);
    SetConsoleTitle(PChar(ParamStr(0)));

    Handle := GetStdHandle(STD_OUTPUT_HANDLE);
    GetConsoleScreenBufferInfo(Handle, Info);
    Count := NativeUInt(Info.dwSize.X) * NativeUInt(Info.dwSize.Y);
    FillChar(Coord, SizeOf(Coord), #0);
    FillConsoleOutputAttribute(Handle, Info.wAttributes, Count, Coord, Temp);
    FillConsoleOutputCharacter(Handle, #32, Count, Coord, Temp);
    FillChar(Coord, SizeOf(Coord), #0);
    SetConsoleCursorPosition(Handle, Coord);
  end else
  begin
    AllocConsole;
    ShowWindow(GetConsoleWindow, SW_HIDE);
  end;
end;

    while not AttachConsole(ProcInfo.dwProcessId) do
      sleep(50);

uses
..., Windows, Registry;

function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
function SaveCurrConsolePosition(): Boolean;
var
  fCW: HWND;
  flpR: TRect;
  fReg: TRegistry;
  fSubKey: string;
  fPos: COORD;
begin
  result := False;
  fCW := GetConsoleWindow();
  if fCW = 0 then
    Exit;

  fReg := TRegistry.Create;
  try
    fSubKey := GetModuleName(HInstance);
    fSubKey := StringReplace(fSubKey, '\', '_', [rfReplaceAll]);

    if fReg.OpenKey('Console\' + fSubKey, True) then begin 

      GetWindowRect(fCW, flpR);
      fPos.X := flpR.Left;
      fPos.Y := flpR.Top;

      fReg.WriteBinaryData('WindowPosition', fPos, SizeOf(COORD));
    end;
    result := true;
  finally
    fReg.Free;
  end;
end;