// Variante 1
// Getestet mit D4 unter WinME 
 
 
procedure KeyBufClear; 
var 
Mgs:TMsg; 
begin 
PeekMessage(Mgs,0,WM_CHAR,WM_CHAR,PM_REMOVE); 
end; 
 
 
 
// So ist beispielsweise keine Eingabe in Edit1 mehr möglich 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
Shift: TShiftState); 
begin 
KeyBufClear; 
end;       
  
 
 
// Variante 2 
// Getestet mit D2010 unter W7 
 
function KeyBufClear: integer; 
var 
  Msg: TMsg; 
begin 
  Result := 0; 
  while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do 
    Inc(Result); 
end;