procedure TForm1.KOLForm1Char(Sender: PControl; var Key: KOLChar;
 Shift: Cardinal);
begin
if key=#.. then ... ;
end;