Fenster mit bestimmten Titel automatisch schließen

[Monsta3]

So, dass mit dem Fenster finden und schließen hab ich nun hinbekommen. Wie mach ich es aber, dass das Programm so lange es geöffnet ist alle kommenden Fenter schließt? Mein aktueller Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  win: hWnd;
begin
  win := FindWindowByTitle('Nachrichtendienst')
  SendMessage(win, WM_SYSCOMMAND, SC_CLOSE, 0);
end;