son un par de trucos que pueden usar para sus programitas

Vamos a ver una recopilacion de los mejores trucos para programar en Delphi. Si quieres que te incluyamos algun otro no dudes en enviarnoslo, entre todos podremos hacer un mundo mejor.
AÑADIR LOS PUNTOS DE MILES A UN NÚMERO
Como puedes observar el truco está en dar un formato de salida distinto al habitual

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
i:=2538456;
Label1.Caption:=FormatFloat('#,',i);
end;


CALCULAR LA LETRA DEL NIF SEGÚN EL NÚMERO DEL DNI

function NIF(DNI: String): Char;
begin
Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1];
end;


COMPROBAR SI UN STRING TIENE UN NÚMERO
Intentamos convertir un String a un Entero, si no ocurre nada en el flujo de ejecución del programa, el String contiene un número, sino es asi salta la excepción y devolvemos false.

function IsStrANumber(NumStr : string) : boolean;
begin
result := true;
try
StrToInt(NumStr);
except
result := false;
end;
end;


AGILIZAR LA CARGA DE TUS PROGRAMAS
No crees todos los forms de golpe, crea sólo el inicial, y desde el crea dinámicamente los que vayas a utilizar, sólo cuando los vayas a utilizar.
Es decir, en el IDE, en Project-Options tienes dos ventanas, una la de 'Autocreate forms' y otra, la de 'Available forms'. Pues pon sólo la principal en 'Autocreate forms'. Después, en el uses de la primera form, añades las units del resto de forms, y en el var de la primera form, declaras las variables TForm del resto de forms que vayas a crear.
Un ejemplo de Form1 que crea una Form2:
El uses de Form1:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2;
El var de Form1:

var
Form1: TForm1;
Form2: TForm2;
Y cuando quieras llamar a la Form2 desde Form1 usa:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(self);
Form2.Show;
end;

Si tras hacer todo esto, te sigue tardando mucho en cargar el primer form, puedes ponerle una Splash Screen (una pantalla inicial) en la que le pones el típico mensaje de 'cargando'.
DAR MAYOR PRIORIDAD A TU APLICACIÓN

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);


RESTAURAR LA PRIORIDAD A TU APLICACIÓN

SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_NORMAL);


CAPTURAR LAS PROPIAS HOT-KEYS
Primero, pon la propiedad KeyPreview de la form a True. Entonces, haz algo como esto:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
ShowMessage('Ctrl-A');
end;
En el ejemplo, capturamos el Ctrl-A
CERRAR OTRA APLICACIÓN DESDE LA TUYA
Es fácil: envianadole un mensaje WM_CLOSE.
Por ejemplo, cerrar la calculadora de Windows:

procedure TForm1.Button1Click(Sender: TObject);
var
Mango:integer;
begin
Mango:=FindWindow(nil,'Calculadora');
if mango=0
then ShowMessage('No encuentro esa aplicacion')
else SendMessage(Mango,WM_CLOSE,0,0);
end;

Para cerrar cualquier otra aplicacion, deberias saber o bien su ClassName o bien el titulo de la ventana. Este invento te dirá ambos de todas las aplicaciones que tengas rulando:
-Crea una form y pon un TMemo (Memo1) y un TButton (Button1) en ella.
-En el private de la declaracion de la form pon:

private
{ Private declarations }
WindowList1 : TList;


-Y en el OnCLick del Button1 pon este código:

procedure TForm1.Button2Click(Sender: TObject);
var
TopWindow : HWND;
WinName,
WinClass : array[0..80] of Char;
x : Integer;
NoError : Boolean;
function GetAllWindows(Handle: HWND;
NotUsed: Pointer): Boolean; stdcall;
begin
Result := True;
Form1.WindowList1.Add(Pointer(Handle));
end;
begin
TopWindow := Handle;
WindowList1 := TList.Create;
try
NoError := EnumWindows(@GetAllWindows,
Longint(@TopWindow));

if not NoError then
Exit;

for x := 0 to WindowList1.Count - 1 do
begin

GetWindowText(HWND(WindowList1[x]),
WinName,
SizeOf(WinName) - 1);

GetClassName(HWND(WindowList1[x]),
WinClass,
SizeOf(WinName) - 1);

memo1.Lines.add('Titulo:'+Winname+'-Clase:'+WinClass);
end;
finally
WindowList1.Free;
end;
end;




Y tendras una lista de las tareas ejecutandose, con su titulo y nombre de clase.
CERRAR UNA APLICACIÓN SABIENDO EL NOMBRE DE SU EJECUTABLE
Añade TLHelp32 en el uses de tu form

procedure TForm1.Button2Click(Sender: TObject);

function CierraExe (FicheroExe:string):boolean;

function SacaExe(MangoW:HWND):string;
{Obtiene el EXE de una tarea}
{get EXE of a task}
var
Datos :TProcessEntry32;
hID :DWord;
Snap : Integer;
begin
GetWindowThreadProcessId(MangoW,@hID);
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
try
Datos.dwSize:=SizeOf(Datos);
if(Process32First(Snap,Datos))then
begin
repeat
if Datos.th32ProcessID=hID then
begin
Result:=StrPas(Datos.szExeFile);
Break;
end;
until not(Process32Next(Snap,Datos));
end;
finally
Windows.CloseHandle(Snap);
end;
end;


function ObtieneVentanas(Mango: HWND;
ACerrar: Pointer): Boolean; stdcall;
begin
Result := True;
{Mango es el handle de la tarea encontrada}
{Si es el .EXE buscado, lo cierra}
if SacaExe(Mango)=UpperCase( String(ACerrar^) )then
begin
SendMessage(Mango,WM_Close,0,0);
String(Acerrar^):='CERRADO';
end;
end;







begin
EnumWindows( @ObtieneVentanas, Integer(@FicheroExe) );
Result:=(FicheroExe='CERRADO');
end;

begin
if CierraExe('C:\WINDOWS\NOTEPAD.EXE')
then ShowMessage ('Cerrado/Closed')
else ShowMessage ('No Encontrado/not Found');
end;


Cambiado la definición de tipo de hID de integer a DWord.
HACER QUE UN ENTER FUNCIONE COMO UN TABULADOR
Coloca este código en el evento OnKeyPress de tu form:
begin
if Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
end;






Esto hará que te muevas entre los Edits, botones, etc con el ENTER además de con el
TAB. Si tu form SI tiene un control DBGrid, igual te guste más éste codigo:

{ Este es el manejador de evento de OnKeyPress de tu form }
{ Debes poner la propiedad KeyPreview de la form a true}

begin
if Key = #13 then { if it's an enter key }
if not (ActiveControl is TDBGrid) then begin { if not on a TDBGrid }
Key := #0; { eat enter key }
Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
end
else if (ActiveControl is TDBGrid) then { if it is a TDBGrid }

with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then { increment the field }
selectedindex := selectedindex +1
else
selectedindex := 0;
end;