[Decoding]

Не уверен, но попробуй написать так:

Код:

 
procedure TMain.FlashFSCommand(ASender: TObject; const command, args: WideString);
var
  cmd: string;
begin
   cmd := command;
   case cmd[4] of
      'm': begin
         Application.Minimize;
         ShowMesage(command);
      end;
      'e': Close;
   end;
end;