* fixed previous commit

git-svn-id: trunk@3617 -

rtl/win/video.pp

@@ -79,7 +79,7 @@ procedure SysDoneVideo;
 begin
   SetConsoleScreenBufferSize (TextRec (Output).Handle, OrigConsoleInfo.dwSize);
   SetConsoleWindowInfo (cardinal (TextRec (Output).Handle), true, OrigConsoleInfo.srWindow);
-  GetConsoleCursorInfo(TextRec(Output).Handle, OrigConsoleCursorInfo);
+  SetConsoleCursorInfo(TextRec(Output).Handle, OrigConsoleCursorInfo);
   SetConsoleCP(OrigCP);
 end;