Free Pascal-ban írt, Windows alatt lefordított program ne a Dos ablakban fusson, mit lehet tenni? (bővebben lent)

Szeretném, ha a program a Windows-ban futna és nem az emulált DOS ablakban, mert ekkor megváltozik a kódtábla-kiosztás (gondolom CP437 lesz mint a régi szép időkben), és az ékezetes billentyűkre nem reagál, a többire igen, példaként beraktam (alább a példaprogram). Gondolom, valamilyen módon GUI-t kellene tenni rá, mi ennek a legegyszerűbb módja? Nem szeretnék semmilyen különleges grafikát, csak hogy egy grafikus ablakban fusson a program, tehát nem akarok szövegdobozokat, se egerészést, semmit, csak hogy úgy fusson mint egy Win32 alkalmazás és ne a cmd.exe által fusson mint egy régi DOS program. Simán Free Pascal alatt meg lehetne oldani? (Lazarust sem szeretnék használni). Ha ASCII kódjuk szerint adnám meg az ékezetes betűket, akkor sem működnének. Ha megoldható rendkívül egyszerűen Lazarus alatt, akkor megpróbálkoznék vele, bár Lazarus-t sem használtam még soha.

Ha a -WG+ paraméterrel fordítottam a programot, akkor - gondolom mivel grafikát nem tartalmaz - elindul ugyan, de csak a feladatkezelőben lehet látni és persze jól leterheli a rendszert, hiszen a háttérben fut és a végtelenségig várja a billentyűleütéseket, de ugye hiába...

Valaki képessé tudná nekem tenni ezt a programot, hogy normálisan fusson Windows alatt, vagy valamilyen példaprogramot tudna mutatni ami alapján át tudnám ezt alakítani? A legeslegegyszerűbb megoldás érdekelne, nem szeretnék grafikus tervezéssel foglalkozni, vak vagyok és sosem foglalkoztam ilyesmivel, csak tudom hogy van GTK meg QT meg hasonlók, de a legegyszerűbb példaprogram aminek forráskódját olvastam is elég bonyolult volt... Egyszerű megoldás létezik?

Uses CRT; {WinCRT-t nem használhatom, mert a Readkey stb nem működne}

Var

Ch : Char;

Begin

ClrScr;

WriteLn('Kilépés: Enter gomb.');

Repeat

ch := ReadKey;

Case ch of

'a' : WriteLn('a');

'b' : WriteLn('b');

'c' : WriteLn('c');

'á' : WriteLn('á');

'Á' : WriteLn('Á');

'é' : WriteLn('é');

'É' : WriteLn('É');

'í' : WriteLn('í');

'Í' : WriteLn('Í');

'ö' : WriteLn('ö');

'Ö' : WriteLn('Ö');

'ő' : WriteLn('ő');

'Ő' : WriteLn('Ő');

'ű' : WriteLn('ű');

'Ű' : WriteLn('Ű');

'ó' : WriteLn('ó');

'Ó' : WriteLn('Ó');

'ú' : WriteLn('ú');

'Ú' : WriteLn('Ú');

End;

Until(ch = #13);

End.