Función que nos da el nombre del PC en la red en Delphi

Unidades necesarias:

uses
  Windows, Messages, ..., WinSock, IdHttp, WinInet;

Función que nos da el nombre del PC en la red:

function LeerNombrePC: string;
var
  Buffer: array[0..255] of char;
  dwLongitud: DWord;
begin
  dwLongitud := 256;

  if GetComputerName( Buffer, dwLongitud ) then
    Result := Buffer
  else
    Result := ''
end;

Iluminar icono de aplicación en barra de tareas

FlashWindow(Handle, True);             // formulario actual
FlashWindow(Application.Handle, True); // icono en la barra de tareas

Carácteres especiales añadibles a "string" en Delphi

#12 -> salto de página
#10 -> salto de línea
#13 -> retorno de carro
#9 -> tabulador horizontal

Dividir string según un carácter

1. Poner un "Edit", un "Botón" y un "Memo"
2. "Doble clic" de "Botón":
   
   Código:

     Memo1.Lines.Clear();
     ExtractStrings([';'], [' '], PChar(Edit1.Text), Memo1.Lines);

3. Ejecutar programa, introducir una cadena separada por ";" y probar...