var
  List: TStringList;

procedure TForm1.FormCreate (Sender: TObject);
begin
 // Assert (Assigned (List)); // The second parameter defaults to 'Assertion failure'
  Assert (Assigned (List), 'List object was not created');
end ;


You can use {$ ASSERTIONS OFF / ON} to decide whether to enable Assert; by default, it is only used for the Debug version.