как вывести картинку при запуске экзешника

у меня есть код
program Project1;

uses
windows;

{$R *.res}

var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;

begin
FillChar(StartupInfo, sizeof(StartupInfo), 0);
with StartupInfo do begin
cb := Sizeof(StartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOW;
end;
if not createprocessa(nil,'quake3.exe +set fs_game missionpack',nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil,StartupInfo, ProcessInfo) then
messagebox(0,'Не найдено quake3.exe','Это ошибка',mb_iconerror);
end.

как сюда поставить чтобы при запуске этого вылетала картинка 415х250 на 1 -2 сек а после уже запускалось приложение... (можно чтобы при нажатии мышкой по картинке то запускает приложение.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.