Si todas las cadenas son como la que pones, quizá baste buscar la posición de la cadena "id=" y del primer "&" después de eso. Algo como
Código Delphi
[-]
var
PosId, PosAmp: Integer;
begin
PosId := Pos('id=', S);
if PosId = 0 then
exit;
Inc(PosId, 3);
PosAmp = PosEx('&', S, PosId);
if PosAmp = 0 then
PosAmp := Length(S);
S := Copy(S, PosId, PosAmp - PosId);
end;
Bye