procedure Tfrmcamions.cmblivraisonSelect(Sender: TObject);
var
     Temp : string;
begin
     Temp := cmblivraison.Items[cmblivraison.ItemIndex];
     codeliv := StrToInt(Trim(Copy(Temp,1,Pos('|',Temp)-1)));
end;

procedure Tfrmcamions.btnmodifClick(Sender: TObject);
begin
     codecam := dm.verifiermatricule(edtcamlie.Text);
     if codecam <> -1 then dm.modifiercamions(codeliv,codecam);
end;