Fechar um Form com ESC

No evento OnKeyDown do TForm digite:

if (Key=VK_ESCAPE) then
begin
close;
end;