?

Ну попробуй так:
begin
with Application do
begin
if Active = false then BringToFront;
Restore;
end;
FormShow(Self);
end;

Как программно востановить свернутую форму?
Вот так:
WindowState := wsMaximized;
И все ...

Здравствуйте Нехачу вводить, Вы писали:

НВ>?
Гораздо эффективнее и корректнее:
if not IsWindowVisible then ShowWindow(Self.Handle,SW_RESTORE);