¿Pones "preposiciones?¿Tabulas tu código?

[Nuria]

Funciones con Ctrl. + J.

arrayd + Ctrl. J .
array[0..|] of ;

arrayc + Ctrl J.
array[0..|] of = ();

cases + Ctrl J

 case   |   of
     : ;
     : ;
 end;

casee + Ctrl J

  case   |   of
     : ;
     : ;
  else ;
  end;

classf + Ctrl J

 T| = class(T)
   private
   protected
   public
   published
 end;

classd + Ctrl J

  T| = class(T)
  end;

classc + Ctrl J

 T| = class(T)
     private
     protected
     public
  	constructor Create; override;
  	destructor Destroy; override;
     published
 end;

fors + Ctrl J
for | := to do

forb + Ctrl J

  for  |  :=   to   do
  begin
  end;

function + Ctrl J

  function  |  (): ;
  begin
  end;

ifs + Ctrl J
if | then

ifb + Ctrl J

  if   |   then
  begin
  end;

ife + Ctrl J

 if   |   then
 else

ifeb + Ctrl J

 if   |   then
   begin
   end
 else
   begin
   end;

procedure + Ctrl J

 procedure  | ();
 begin
 end;

trye + Ctrl J

 Try
  	|
  except

tryf + Ctrl J

 try
  	|
 finally

trycf + Ctrl J

 | variable := typename.Create;
 try

 finally
    variable.Free;
 end;

whileb + Ctrl J

  while   |   do
  begin
  end;

whiles + Ctrl J
while | do

withb + Ctrl J

  with   |   do
  begin
  end;

withs + Ctrl J
with | do


También puedes personalizar los códigos que aparecen con Ctrl+J, en el menú de Tools, Editor Options, Code Insight.

Reconozco que casi nunca me acuerdo de utilizarlas, termino antes, con el método de toda la vida.

Saludos!