program Project1;

uses
Forms, Windows,
Unit1 in 'Unit1.pas' {Form1},
Logo in 'Logo.pas' {Logo};

{$R *.RES}

begin
Logo := TLogo.Create(nil);
Logo.Show;

if GetKeyState(vk_F8) < 1 then MessageBox(0,'Během startu bylo stisknuto F8','Pozor',mb_ok);

Application.Initialize;
Application.CreateForm(TForm1, Form1);

Logo.Hide;
Logo.Release;

Application.Run;

end.
V našem příkladu se při stisku klávesy F8 objeví jednoduché upozornění. Samozřejmě je to pouze pro názornost a nemusím snad připomínat, že můžete doplnit libovolný kód.