Limpar todos os Edits, Memos, MaskEdits, etc...

procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;

O Componente Checklistbox

//limpar
checklistbox1.Clear;
//adicionar itens
checklistbox1.Items.Add('Item');
//Verificar os ítens checados
for a:= 0 to checklistbox1.Items.Count-1 do begin
if checklistbox1.Checked[a] then
listbox1.Items.Add(checklistbox1.Items[a]);
end;

Chamando uma splash screen

Na unit principal de seu projeto (*.DPR), aquela onde a primeira linha de código é 'PROGRAM PROJECT1;'.

a) Digite abaixo da linha 'Application.Initialize':

Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;

b) Agora digite antes da linha 'Appication.Run':

Form2.Hide;
Form2.Free;

No TForm2 que é a tela de apresentação, você terá que finalizá-lo da seguinte forma:
{Obs: este método é opcional, para no caso de preferência do
prolongamento de uma apresentação}
a) Insira um componente TTimer no TForm2.
b) Na Propriedade Interval do componente TTimer digite 5000
c) No Evento OnTimer do componente TTimer digite CLOSE;

Fechando TForm MDIChild em um TForm MDIForm

No evento OnClose do TForm MDIChild digite

Action := CaFree;

Chamando TForm MDIChild em um TForm MDIForm

Form2 := TForm2.Create(Application);
Form2.Show;

Reiniciando o Windows

ExitWindowsEx(EWX_REBOOT, 0);

Desligando o Windows

ExitWindowsEx(EWX_SHUTDOWN, 0);