procedure TForm1.FormActivate(Sender: TObject);
begin
try
MediaPlayer1.DeviceType :=dtSequencar;
//Midi를 연주하는 미디어플레이어로 설정한다.
MediaPlayer1.FileName :='a.mid';
//연주할 파일명을 설정한다.(.rmi파일도 연주할 수 있다.)
MediaPlayer1.Open;
//파일을 열어 미디어 플레이어 버튼을 활성화 시킨다.
except
showmessage
end;
end.
그리고 showmessage를 showmessage('오류'); 라고 바꾸고
except
showmessage('오류');
end;
end;
end.
와 같이 바꾸세요...
-ps-
델파이를 처음 공부하시나 보군요...
영문으로 되어 있어서 조금은 부담스럽겠지만, 이런 경우 컴파일시에 발생한 오류를 잘 읽어보시고 도움말을 먼저 뒤져보시는게 순서일듯 합니다.