[ecfisa]

Hola.

Podes usar la función BringWindowToTop, un ejemplo:

Código Delphi [-]
procedure WindowToTop( const WindowName: string );
var
  H: HWND;
begin
  H := FindWindow( nil, PChar( WindowName ) );
  if H <> 0 then
    BringWindowToTop( H );
end;

procedure TForm1.ButtonClick( Sender: TObject );
begin
  WindowToTop( 'Sin título: Bloc de notas' );
end;

Saludos