Código Delphi [-]
 ShowMessage('Hello Universe');

Código Delphi [-]
unit UCMorse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  CodMorse : Array [48..90] of String =
                ('-----','.----','..---','...--','....-','.....',
                 '-....','--...','---..','----.','---...','-.-.-.',
                 '','-...-','','..--..','','.-','-...','-.-.','-..',
                 '.','..-.','--.','....','..','.---','-.-','.-..',
                 '--','-.','---','.--.','--.-','.-.','...','-','..-',
                 '...-','.--','-..-','-.--','--..');
var
  Form1: TForm1;

implementation

{$R *.DFM}

function ConvaCMorse(T:String):String;
var
  paso : String;
  I : Integer;
begin
  Paso := '';
  For I := 1 to length(T) do begin
      If T[i] <> ' ' then
         Insert(CodMorse[Ord(T[i])],Paso,Length(Paso)+1);
         Insert(' ',Paso,Length(Paso)+1);
  end;
  Result := Paso;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Texto : String;
  I     : Integer;
begin
  Texto := 'sos';
  Texto := uppercase(Texto);
  ShowMessage(Texto+#10#13+ConvaCMorse(Texto));
end;

end.

Código Delphi [-]
// Opción tradicional y más sana:

Function F1 :Integer;
Begin
  Result := 4;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  I :Integer;
begin
  I := F1 ();

  If I = 5 Then
    ShowMessage ('F1 devolvió 5.')
  Else
    { NOTA: Canon debidamente pagado a Julián, a la SGAE y a la SAGARPA :D }
    ShowMessage ('¡Pabernosmatao!  F1 devolvió ' + IntToStr (I) + '.');
end;

// Extravagancia de fiebre de sábado por la noche:

Type
  TInteger = Record
    Valor :Integer;
  End;

Function F2 :TInteger;
Begin
  Result.Valor := 4;
End;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With F2 () Do
    If Valor = 5 Then
      ShowMessage ('F2 devolvió 5.')
    Else
      { NOTA: Canon debidamente pagado a Julián, a la SGAE y a la SAGARPA :D }
      ShowMessage ('¡Pabernosmatao!  F2 devolvió ' + IntToStr (Valor) + '.');
end;

Código Delphi [-]
procedure Al_Ayuda;
begin
  if (MessageDlg('¿Alguien conoce la utilidad de la función _CopyObject?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
     ShowMessage('Llame urgentemente a Al Gonzalez');
end;

Código Delphi [-]
try
Destination.Assign(Source); 
except
  on EConvertError do Destination := Source;
end;

Código Delphi [-]
unit WindowsUses;

interface

uses Windows, SysUtils, Forms, Messages, Classes;

procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
function FormaCreada(Nombre: String): boolean;
procedure DestruirForma(Forma: TForm);
procedure MinimizarForma(Forma: TForm);
procedure MaximizarForma(Forma: TForm);
procedure RestaurarForma(Forma: TForm);
procedure MinimizarAplicacion;
procedure FinalizarAplicacion;

implementation

procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
var Ban: Boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
   then begin
        with Forma do
          begin
          Left := PosX;
          Top := PosY;
          Visible := Value;
          end;
        end;
end;

procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
var Ban: boolean;
begin
ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
              begin
              Height:= Largo;
              Width:= Ancho;
              end;
            end;
end;

function FormaCreada(Nombre: string): boolean;
var Ban: boolean;
    i: integer;
begin
Ban := False;
i := 0;
while (Ban = False) and (i<= Screen.FormCount-1) do
  begin
  if Screen.Forms[i].Name = Nombre
    then ban := True
    else Inc(i,1);
  end;
Result := Ban;
end;

procedure DestruirForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
   then Forma.Destroy;
end;

procedure MinimizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsMinimized;
            end;
end;

procedure MaximizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsMaximized;
            end;
end;

procedure RestaurarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
            with Forma do
            WindowState := wsNormal;
            end;
end;

procedure MinimizarAplicacion;
begin
Application.Minimize;
end;

procedure FinalizarAplicacion;
begin
Application.Terminate;
end;

end.

Código Delphi [-]
 
procedure MyMakeDir(Dir: string);
begin
If not DirectoryExists(ExtractFileDir(Dir)) then
 MyMakeDir(ExtractFileDir(Dir));
MkDir(Dir);
end;

Código Delphi [-]
program sandez;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  s = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i, j, k: byte;
  stmp: string;
begin
  stmp := s;
  j := length(s);
  Randomize;
  for k := 1 to 12 do
  begin
    for i := 1 to j do stmp[i] := s[random(j)];
    writeln(stmp);
  end;
end.

Código SQL [-]
Declare @Str varchar(60)
--Select @str='Anita lava la tina'
Select @str='Ana lleva al oso la avellana'

Select
case when reverse(substring(replace(@str, ' ',''),(len(replace(@str, ' ',''))/2)+2,(len(replace(@str, ' ',''))/2)+1))=substring(replace(@str, ' ',''),1,(len(replace(@str, ' ',''))/2)) then 1 else 0 end EsPali

Código Delphi [-]
procedure EjecutarRA(stUserDomain, stProg, stParam: String);
begin
   WinExec(PChar('runas /user:'+ stUserDomain+' '+chr(34)+stProg+ ' '+ stParam+chr(34)),SW_SHOWNORMAL);
end;

Código Delphi [-]
procedure rascame(ParteDelCuerpo:TBody,Intensidad:integer,Tiempo:TTime);
var QueMano:TBody;
     MePica:boolean;
begin
  MePica:=True;
  QueMano:=Tbody.Create;
  QueMano.Assign(ParteDelCuerpo);
  While MePica=True 
      then begin
          With ParteDelCuerpo do
               Lapsus:=Tiempo;
               Fuerza:=Intensidad;
          end;
          Try 
            QueMano.Rascame;
          except
            QueMano.Message(10,10,'Eres manco!!! no puedo rascarte'); 
          finally
            QueMano.YaPaso;
            MePica.Status:=False;
         end;
  QueMano:= nil;
 ParteDelCuerpo.Free; 
end;