1:
2:
3:
4:
5:
6:
7:

  frm1.AlphaBlendValue := 200;
  for i:=200 downto 0 do
  begin
    frm1.AlphaBlendValue := i;
    Application.ProcessMessages;
    delay(speed_in_ms);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure FlashBangSub(speed_in_ms: integer);
var i: integer;
begin
  if (flashs) then begin
    nextflash := true;
  end;
  flashs := true;
  frmBackground.AlphaBlendValue := 200;
  for i:=200 downto 0 do
  begin
    if not(flashs) then exit;
    frmBackground.AlphaBlendValue := i;
    delay(speed_in_ms);
    if (nextflash) then
    begin
      if (i = 150) then flashs := false;
      nextflash := false;
      flashs := false;
      FlashBang(speed_in_ms);
      break;
      exit;
    end;
  end;
  flashs := false;
end;

// Flashbang
procedure Flashbang(speed_in_ms: integer);
begin
  ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@FlashBangSub), @speed_in_ms, 0, ThreadID);
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;