chehrour كتب :حولت في البرنامج وقمت بما يلي :

احذف كل كود BitBtn1Click ماعدا table1.Post; ]تصبح كمايلي:

PHP كود :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

    table1.Post;

end; 


واضقت Table1BeforePost تصبح كمايلي

PHP كود :

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
VAR a:string[3];
begin          
table2.Locate('RB_CD',table1RB_CD.Value,[loCaseInsensitive]);
table1RB_SB.Value:=table2RB_SB.Value;
a:='SP'+FloatToStr(table1SP.Value);
table1MT_SP.Value:=table2.FieldValues[a];
end;