Не уверен, но попробуй написать так:
Код:
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;