Caracteres especiales control+Z

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ['Z', 'z']) then
ShowMessage('Ctrl-Z');
end;


//********** para mandar Control-Z en un socket seria
socket.send('hola'+^z)