EStringListErrorクラスの例外を生成しました (ID:21456)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 プログラムの実行直後に下記エラーが発生し、解決法が分かりません。 ＜エラー内容＞(全文) デバッガ例外が発生 プロジェクトxxxxxがEStringListErrorクラスの例外を生成しました。 リストのインデックスが範囲を超えています(0) プロセスは停止しています。再開するにはステップ実行または実行を選択 してください。 ＜環境＞ Windows2000 Pro Borland Delphi Professional Version6.0 ＜コード抜粋＞ program xxxxxxx uses Forms, Main in 'Main.pas' {Main_frm}; {$R *.res} begin Application.Initialize; Application.CreateForm(TMain_frm,Main_frm); -->この後、☆へ飛ぶ Application.Run end. ☆classes.pas内(コード抜粋) procedure TString.Error(const Msg: String; Data: Integer); function ReturnAddr: Pointer; asm MOV EAX,[EBP+4] end; begin raise EStringListError.CreateFmt(Msg, [Data]) at ReturnAddr; -->ここで、エラー発生します。 end; 上記エラーに関して、同じようなことを遭遇された方、もしくは、何かアドバイスを頂ける方、よろしくお願いします。