Type
  TString1 = string;              //  1. type Name  = Existing type
  TString2 = type string;         //  2. type Name  = type Existing type
  TTemp    = (Hot, Warm, Cold);   //  3. type Name  = (Enum1, Enum2 ...)
  TExpr    = 5*2 .. 6*3;          //  4. type Name  = Expr1 .. Expr2
                                  //  5. См. ключевое слово Pointer
  TArray   = array[1..3] of byte; //  6. type Name  = array[...] of type
                                  //  7. См. код
                                  //  8. См. ключевое слово Class
                                  //  9. См. ключевое слово Dispinterface
                                  // 10. См. ключевое слово File
                                  // 11. См. ключевое слово Function
                                  // 12. См. ключевое слово Interface
                                  // 13. Устаревший
                                  // 14. См. ключевое слово Procedure
  TRecord  = record               // 15. type Name  = record .. end;
               header : string;
               value  : Integer;
             end;
  TLetters = set of 'A'..'z';     // 16. type Name  = set of Ordinals

var
  // Объявление переменных, использующих вышеупомянутые типы
  firstName   : TString1;
  lastName    : TString2;
  temperature : TTemp;
  expression  : TExpr;
  myArray     : TArray;
  myRecord    : TRecord;
  letters     : TLetters;

begin
  // Присвоение значений этим типам
  firstName       := 'Neil';
  lastName        := 'Moffatt';
  temperature     := Cold;
  expression      := 10;
  myArray[1]      := 5;
  myRecord.header := 'data file';
  letters         := ['F'..'Q'];
end;