• Delphi compila a código máquina y no depende de ningún FrameWork o dependecias externas como OCX o DLLs de terceros para funcionar.
• Permite Assembler inline.
• Delphi trabaja con sus componentes VCL (Visual Component Library) y son ampliables. Puedes descargar nuevos componentes e instalarlos (algunos son de pago).
• Delphi es una estupenda elección para desarrollar aplicaciones que trabajan con motores de base de datos. De hecho, se pasó de Turbo Pascal a Delphi para ese fin, recientemente se incorporó soporte para las bases de datos FireBird.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
//Las constantes se deben de declarar debajo de los uses
//y siempre finalizan en ;
const
  MiCadena = 'Hola, soy una constante';
  OtraCadena = 'Adios';
  UnNumero = 4;
 
 
begin
  Writeln(MiCadena);
  Writeln(OtraCadena);
  Readln;
end.
 

//Mediante la doble barra como en C/C++/C#, Java y otros lenguajes...
 
{
  Entre llaves....
  se pueden escribir varias lineas de comentario
}
 
(*
  Esta es otra forma de declarar comentarios, aunque es poco conocida y usada...
  Es similar a la forma /*    */ de C 
*)
 

• No se pueden emplear palabras reservadas como identificador, además de que no pueden existir 2 variables/constantes con el mismo identificador.
• No se pueden emplear símbolos como identificador de una constante o variable.
• Se pueden emplear mayúsculas, minúsculas, guiones bajos y números.
• Si quieres usar números para declarar constantes o variables, el identificador de la constante o variable nunca puede empezar por número.

const
    1Mensaje = 'Esto es un mensaje';
    Men saje = 'Esto es otro mensaje';
    #M = 18;
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  Pi = 3.14;
  NumeroEnHex = $FD4;
  //Para declarar un número en hexadecimal se utiliza el dolar
 
var
  Cadena: string;
  Numero: integer;
  EsCierto: boolean; //solo puede ser true o false
begin
  EsCierto:= true;
 
  Numero:= NumeroEnHex;
  Cadena:= 'Esto es una cadena';
  Writeln(Cadena);
  Cadena:= 'Esto es otra cadena';
  Writeln(Cadena);
  Readln;
  EsCierto:= false;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Verdad: boolean;
begin
  Verdad:= True;
  if Verdad = True then
    Writeln('Es verdad');
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Verdad: boolean;
begin
  Verdad:= False;
  if Verdad = True then
    Writeln('Es verdad') //En las condiciones de una sola linea con else no se pone ;
    else Writeln('No es verdad');
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero: integer;
begin
  Numero:= 14;
  if Numero < 10 then
    begin
      Writeln('El numero es menor de 10');
      Writeln('...');
    end else
      begin
        Writeln('El numero es mayor o igual que 10');
        Writeln('...............');
      end;
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Numero: integer;
begin
  Write('Introduce un numero: ');
  Readln(Numero);
 
  case Numero of
    1: Writeln('Es el numero 1');
    2: Writeln('.... el 2');
    3: Writeln('.... el 3');
    else Writeln('Otro numero...');
  end;
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
begin
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
  Write('Introduce una opcion: ');
 
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
begin
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
 
  Write('Introduce una opcion: ');
  Readln(Opcion);
 
  case Opcion of
    1: begin
 
       end;
    2: begin
 
       end;
    3: begin
 
       end;
    4: begin
 
       end;
    else Writeln('Introduce una opción entre 1 y 4');
  end;
 
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  Opcion: integer;
  Numero1, Numero2: integer;
begin
  //Creamos el menu de nuestro programa...
  Writeln('Calculadora version 1.0');
  Writeln('1 - Sumar dos numeros');
  Writeln('2 - Restar dos numeros');
  Writeln('3 - Multiplicar dos numeros');
  Writeln('4 - Dividir dos numeros');
  Writeln(''); //Lo dejamos en blanco para dejar una separación
 
  //Pedimos un numero por teclado
  Write('Introduce una opcion: ');
  Readln(Opcion);
 
  //Dependiendo de la opcion...
  case Opcion of
    1: begin
        //Suma
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' + ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 + Numero2));
       end;
    2: begin
        //Resta
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' - ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 - Numero2));
       end;
    3: begin
        //Multiplicacion
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        Writeln('El resultado de ' + IntToStr(Numero1)
          + ' * ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 * Numero2));
       end;
    4: begin
        //Division
        Write('Introduce un numero: ');
        Readln(Numero1);
        Write('Introduce otro numero: ');
        Readln(Numero2);
        if Numero2 <> 0 then
          Writeln('El resultado de ' + IntToStr(Numero1)
            + ' / ' + IntToStr(Numero2) + ' = ' + IntToStr(Numero1 div Numero2)) //División entera
        else Writeln('El divisor no puede ser 0 :(');
       end;
    else Writeln('Introduce una opción entre 1 y 4'); //Error
  end;
 
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
procedure MiProcedimiento;
begin
 
end;
 
begin
 
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
procedure MiProcedimiento;
begin
  Writeln('Este es mi procedimiento');
  Writeln('....');
end;
 
begin
  MiProcedimiento; //También sirve MiProcedimiento();
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function Funcion: integer;
var
Operacion: integer;
begin
  Operacion:= ((14 * 27) div 2) - 4;
  Result:= Operacion; //También vale Funcion:= Operacion;
end;
 
begin
  Writeln('Funcion: ', Funcion);
  Readln;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function Suma(a: integer; b: integer): integer;
begin
  Result:= a + b;
end;
 
begin
  Writeln('Suma: ', Suma(2, 3));
  Readln;
end.
 

function Suma(a,b: integer; mensaje: string): integer;
begin
  Writeln(Mensaje);
  Result:= a + b;
end;
 

function Resta(const a, b: integer): integer;
begin
  Result:= a - b;
end;
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
procedure Proc1;
begin
  Proc2;
end;
 
procedure Proc2;
begin
  Writeln('Hacer algo');
end;
 
begin
  Readln;
end.
 

type
   Cadena = string;
 

var 
Prueba: Cadena;
 

type
  Coche = (seat, bmw, golf, mercedes, ferrari, porsche);
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Coche = (seat, bmw, golf, mercedes, ferrari, porsche);
 
var
  MiCoche: Coche;
begin
  MiCoche:= bmw;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Agenda = record
    Nombre: string;
    Apellidos: string;
    Telefono: integer;
  end;
 
begin
 
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Agenda = record
    Nombre: string;
    Apellidos: string;
    Telefono: integer;
  end;
 
var
  MiAgenda: Agenda;
begin
  MiAgenda.Nombre:= 'Pepe';
  MiAgenda.Apellidos:= 'No tengo apellidos';
  MiAgenda.Telefono:= 62352352;
end.
 

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Agenda = packed record
    Nombre: array[0..49] of char;
    Apellidos: array[0..99] of char;
    Telefono: integer;
  end;
 
var
  MiAgenda: Agenda;
begin
  MiAgenda.Nombre:= 'Pepe';
  MiAgenda.Apellidos:= 'No tengo apellidos';
  MiAgenda.Telefono:= 62352352;
end.