[bormotan]

простите , в режиме canvas этот GetKeyPressed работает
может кому пригодится ерундовая процедурка

procedure clrscr;
var r,g,b:integer;
begin
   r:=getColorRed;
   g:=getColorGreen;
   b:=getColorBlue;
   setcolor(255,255,255);
   fillrect(0,0,getwidth,getheight);
   setcolor(r,g,b);
   repaint;
end;