if IsIconic(hWnd) then//ist das Fenster minimiert
    showWindow(hWnd, SW_RESTORE);//SW_MAXIMIZE

function EnumWin(hWnd: THandle; FindWin: PString): Boolean; stdcall;
var
  WinText: AnsiString;
begin
  Result := True;
  if IsWindowVisible(hWnd) and not boolean(GetWindowLong(hWnd, GWL_HWNDPARENT)) then
  begin
    SetLength(WinText, SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0));
    SendMessage(hWnd, WM_GETTEXT, Length(WinText)+ 1, integer(WinText));
    if (length(WinText)> 0) and (WinText <> 'Program Manager') then
    begin
      if IsIconic(hWnd) then//ist das Fenster minimiert
        if WintExt = FindWin^ then//DEMO
          ShowWindow(hWnd, SW_RESTORE);//SW_MAXIMIZE
      //Form1.ListBox1.Items.Add(WinText);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FindWin: String;
begin
  FindWin:= 'Unbenannt - Editor';
  EnumWindows(@EnumWin, integer(@FindWin));
end;