splash form

procedure TForm1.FormCreate(Sender: TObject);
begin
with tform2.create(self) do
try
show;
update;
sleep(10000);
finally
Free;
end;
end;
form2 has been setted available