Code:

ModalForm := TModalForm.Create(Self);

try

ModalForm.ShowModal;

finally

ModalForm.Free;

end;