procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ActiveControl is TRzPageControl then
if Key in [VK_HOME, VK_END] then
Key := 0
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True
end;