Pascal - pascal e api win32

Per piacere chiedo aiuto..

Guardate questo programma che stranezze fa:

prima mi funziona e poi mi da errori.

Sembra che gli errori siano nel sorgente della unit.

edit by netarrow: sistemato il titolo

devi postare i sorgenti, non allegare l'esebuigile.

ah, inoltre spiega meglio il problema e usa un titolo autoesplicativo su di esso

program grafica;

{$apptype GUI}
uses windows,wincrt,wingraph,winmouse;
var
  // variabili per la grafica
   driver,mode:smallint; c:char;
  //varibili per il programma
  s:shortstring;    i:byte;

////////////////////////////////////////////////////
procedure ckeckmouse;

var me:mouseeventtype;
begin
 if not(pollmouseevent(me)) then outtext('Non riuscito');
 getmouseevent(me);
 with me do
  begin
  case action of
   mouseactiondown:
      begin
        case buttons of
           mouseleftbutton:
             begin
               i:=1;
               outtextxy(200,400,'Mouse');

       end;  end;
            end;
 end;

  end;
end;

////////////////////////////////////////////////////


begin
c:=readkey;
setwindowsize(500,500);
driver:=nopalette;
mode:=mcustom;
showwindow(getactivewindow,0);
initgraph(driver,mode,'Prima applicazione');
if graphresult<>grok then
halt;
writebuf('Scriva il  nome del file grazie:');
readbuf(s,0);
settextstyle(couriernewfont,0,4);
outtextxy(50,50,s);
rectangle(100,100,200,200);
bar (100,100,200,200);
bar3d(300,300,400,400,30,true);

settextstyle(mssansseriffont,0,4);
outtextxy(410,410,'Ciao');
repeat
ckeckmouse;
until i=1;


repeat delay(10) until closegraphrequest;
closegraph;
end.

edit by netarrow: formattato il codice

Cosa dovrebba fare il programma??