Coloque na cláusula uses do seu Form a unit DBTables

function GetAliasPath(Alias: string): string;
var
  Params: TStringList;
begin
  Params := TStringList.Create;
  Session.GetAliasParams(Alias, Params);
  Result := Params.Values['PATH'];
  Params.Free;
end;

Para Ocultar:
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);

Para Mostrar:
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);

No Delphi 7 já vem incluso o Quick Report, ele apenas não instala os componentes automaticamente.
Para instalar, abra o Delphi, vá em Component -> Install Packages, clique em ADD e localize o arquivo c:\Arquivos de Programas\Borland\Delphi7\Bin\dclqrt70.bpl.

Após isso a paleta do Quick Report será instalado.

function AbreviaNome(Nome: string): string;
var
  Nomes: array[1..20] of string;
  I, TotalNomes: Integer;
begin
  Nome := Trim(Nome);
  Result := Nome;
  {Insere um espaço para garantir que todas as letras sejam testadas}
  Nome := Nome + #32;
  {Pega a posição do primeiro espaço}
  I := Pos(#32, Nome);
  if I > 0 then begin
    TotalNomes := 0;
    {Separa todos os nomes}
    while I > 0 do begin
      Inc(TotalNomes);
      Nomes[TotalNomes] := Copy(Nome, 1, I - 1);
      Delete(Nome, 1, I);
      I := Pos(#32, Nome);
    end;
    if TotalNomes > 2 then begin
      {Abreviar a partir do segundo nome, exceto o último.}
      for I := 2 to TotalNomes - 1 do begin
        {Contém mais de 3 letras? (ignorar de, da, das, do, dos, etc.)}
        {Pega apenas a primeira letra do nome e coloca um ponto após.}

        if Length(Nomes[I]) > 3 

          then Nomes[I] := Nomes[I][1] + '.';
    end;
    Result := '';
    for I := 1 to TotalNomes 

      do Result := Result + Trim(Nomes[I]) + #32;
      Result := Trim(Result);
    end;
  end;
end;

Converter DBF para Paradox:
Execute o Database Desktop, abra uma nova QBE Query e procure o diretório onde está o DBF.
Uma vez escolhido, clique nele, aparecerá um retângulo com quadrinhos ao lado de cada campo, clique no primeiro quadrado que marcará todos automaticamente. Feito isso clique na paleta onde está escrito Query e vá em propriedades, aparecerá um Form onde você pode escolher entre Paradox ou dBASE, escolha Paradox e logo embaixo digite o diretório e o nome da tabela que você quer criar, clique no raiozinho para rodar a Query que então ele converterá para Paradox.

Converter Access para Paradox:

Digamos que você tenha um banco de dados em Access chamado escritorio.mdb e que nele tenha várias tabelas, vamos converter apenas uma, que no nosso exemplo se chama: Clientes e que se quisessemos converter outras o procedimento seria exatamente o mesmo.
Abra o Database Desktop e crie um alias chamado Escritorio, informe o drive desejado como Access, veja bem é Access e não Microsoft Access Drive, depois no campo database que se abriu bem abaixo, indique o diretorio onde se encontra o banco do access.
Uma vez que conectou, feche o alias e vá em file no menu do Database Desktop, clique em New e depois em SQL File, na janela que se abre digite SELECT * FROM Clientes, uma vez que digitou a instrução, clique no botão Query que está em cima há direita, ele tem um ponto de interrogação preto, bom depois de clicar se abrirá uma tela, bem no meio tem Table Type com duas opções: Paradox e dBASE, escolha Paradox, depois vá onde está Table Name bem no meio da tela, digite o diretório e o nome do arquivo que quer que receba a tabela do access convertida, pronto.

Coloque na cláusula uses do seu Form a unit Winsock

function GetIP: string;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
  Name: string;
begin
  WSAStartup(2, WSAData);
  SetLength(Name, 255);
  Gethostname(PChar(Name), 255);
  SetLength(Name, StrLen(PChar(Name)));
  HostEnt := gethostbyname(PChar(Name));
  with HostEnt^ do begin
    Result := Format('%d.%d.%d.%d', [Byte(h_addr^[0]),Byte(h_addr^[1]), Byte(h_addr^[2]),Byte(h_addr^[3])]);
  end;
  WSACleanup;
end;

procedure SetCapsLock(Estado: Boolean);
begin
  if (Estado and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or
     ((not Estado) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then begin
    keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);
    keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end;
end;

  // Exemplos de Uso
  SetCapsLock(True);  // Liga
  SetCapsLock(False); // Desliga

Observação: podemos usar esta mesma técnica para ligar/desligar Num Lock. Neste caso trocaríamos VK_CAPITAL por VK_NUMLOCK.

function VerificaSom: Boolean;
begin
  Result := (WaveOutGetNumDevs > 0);
end;

Coloque na cláusula uses do seu Form a unit Jpeg

procedure BmpToJpg(FileName: string);
var
  Jpg: TJpegImage;
  Stm: TMemoryStream;
  Bmp: TBitmap;
begin
  if FileExists(FileName) then begin
    Bmp := TBitmap.Create;
    Bmp.LoadFromFile(FileName);
    Jpg := TJpegImage.Create;
    Jpg.Assign(Bmp);
    Jpg.Compress;
    Stm := TMemoryStream.Create;
    Jpg.SaveToStream(Stm);
    Stm.Position := 0;
    Stm.SaveToFile(ChangeFileExt(FileName, '.jpg'));
    Stm.Free;
   Jpg.Free;
   Bmp.Free;
  end;
end;

O uso deste procedimento pode ser assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // após a conversão será criado o arquivo Seda.jpg no mesmo diretório
  BmpToJpg('C:\Windows\Seda.bmp'); 
end;

function ResetAutoInc(FileName: TFileName; Base: Longint): Boolean;
begin
  with TFileStream.Create(FileName, fmOpenReadWrite) do
    Result := (Seek($49, soFromBeginning) = $49) and (Write(Base, 4) = 4);
end;

Arquivo contendo explicação do que significa cada caracter usado nas máscaras. Tamanho 4,0 Kb.

Download

procedure Aguardar(Segundos: Byte = 1);
begin
  Sleep(Segundos * 1000);
end;

Coloque na cláusula uses do seu Form a unit QRExport

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('c:\Report.doc'));

  QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create('C:\Report.txt'));

  QuickRep1.ExportToFilter(TQRHTMLDocumentFilter.Create('C:\Report.html'));
end;

WinExec('Command.com /C Teste.exe', "Tipo_de_Janela"); 

"Tipo_de_Janela": 
SW_SHOWNORMAL - Visualização Normal da janela 
SW_MAXIMIZE - Janela Maximizada 
SW_MINIMIZE - Janela Minimizada 
SW_HIDE - Janela Escondida