Sair de um formulario ao pressionar a tecla ESC

Coloque no eventos do formulario no objecto inspector

onkeydown => clique e insira este codigo
If Key = VK_ESCAPE Then => traduzindo se a tecla (If Key) = ESC faça (then)
Close; => fechar

Sua procedure ira ficar assim.....

procedure Tprincipal.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If Key = VK_ESCAPE Then
Close;

end;

Graças ao nosso amigo diemes falta um detalhe..

clique no formulario e na opção keypreview coloque true se estiver false nao funciona..

grato