[Amin_Mansouri]

درود
خوبی ؟
اینجا سوال زیاد پرسیده میشه و جای سوال هم هست.
از ADOQuery استفاده کن اینجوری میشه

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into Table1');
ADOQuery1.SQL.Add('select Field1 ,Field2 from Table2');
ADOQuery1.SQL.Add('where ArtNo= 1');
NumRows := ADOQuery1.ExecSQL;
ShowMessageFmt('Affected rows on Table2: %d', [NumRows]);

در واقع کد شما این میشه :
 adoquery1.sql.add('SET @errorcode=0;');
adoquery1.sql.add('CALL EBIMSMS1('''+Tel_No_old+''','''+Message_Send+''',15,@errorcode);'');
adoquery1.sql.add('select @errorcode;');
adoquery1.open;
پیروز باشید