如何判断一个按键序列

如何判断用户输入的一个序列是不是指一个指定的序列？例如如何监测用户输入了kingron这个序列？ 可以采用下面的方法：
定义一个数组：
var
Buf:array [1..7] of char;
然后在窗体的OnKeyPress中添加如下代码即可：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
i:integer;
begin
for i:=Low(Buf) to High(buf)-1 do
CharBuf:=Charbuf[i+1];
CharBuf[High(Buf)]:=Key;
if CharBuf='kingron' then ShowMessage('OK!');
end;