Código Delphi [-] if (PChar(Stream.Memory)[0]='B') AND (PChar(Stream.Memory)[1]='M') then ShowMessage('Es un bmp');
if (PChar(Stream.Memory)[0]='B') AND (PChar(Stream.Memory)[1]='M') then ShowMessage('Es un bmp');